BWT Project

This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

rm(list=ls())

First, run the following chunk to load the necessary libraries.

library(stringr)
library(ottr)

Second, run this chunk to make sure graphical output will work.

options(bitmapType='cairo')

library(readr)

library(dplyr)

arrange(seq)

#comseq1<-list("T","G","c","A","^","A","A","A")
#comseq1

#cat(paste(comseq1),sep ="\n")

comseq1 <- c('T', 'G', 'C', 'A', '^', 'A','A','A','A')
comseq1

#cat(paste(x1),sep ="\n")

sort_comseq1<-sort(comseq1)
sort_comseq1

#write the compressed sequence as a string. using a variable called compressed_seq1

compressed_seq1<-("TGCA^AAA")
compressed_seq1

#change the sequence from string to be as vector by using the function strsplit. using a variable called sequence_1

sequence_2<-strsplit(compressed_seq1, "")[[1]]
sequence_1<-strsplit(compressed_seq1, "")[[1]]
sequence_1

#use the function sort to make the sequence in an alphabetical order

sort(sequence_1)

cat(paste(sort(rep(sequence_1,)),sep ="\n"))

for(i in 1:2) {                                   
  new <- rep(i, nrow(df))                       
  data[ , ncol(df) + 1] <- new                  
  colnames(df)[ncol(df)] <- paste0("new", i)  
}

first_column<- c("^","G","A","T","T","A","C","A")
second_column<- sort(first_column)
third_column<-paste(first_column,second_column)

fourth_column<-sort(third_column)
#fifth_column<-paste(first_column,fourth_column)

#sixth_column<-sort(fifth_column)
#seventh_column<-paste(first_column,sixth_column)

#eight_column<-sort(seventh_column)
#ninth_coulmn<-paste(first_column,eight_column)

#tenth_coulmn<-sort(ninth_coulmn)
#elventh_coulmn<-paste(first_column,tenth_coulmn)

#twelveth_coulmn<-sort(elventh_coulmn)

#df<-data.frame(first_column,second_column,third_column,fourth_column,fifth_column,sixth_column,seventh_column,eight_column,ninth_coulmn,tenth_coulmn,elventh_coulmn,twelveth_coulmn)
df<-data.frame(first_column,second_column,third_column)
df

first_column<- c("^","G","A","T","T","A","C","A")
second_column<- sort(first_column)
third_column<-paste(first_column,second_column)
fourth_column<-sort(third_column)
#df<-data.frame(first_column,second_column,third_column)
df<-data.frame(first_column, second_column, third_column, fourth_column)
df

rm(list=ls())

 first_column<- c("^","G","A","T","T","A","C","A")
for(i in first_column) { 
  column_variable<- cbind()
 
second_column<- sort(first_column)
third_column<-paste(first_column,second_column)
fourth_column<- sort(fourth_column)
length_1<-length(df)
  #new <- rep(i, nrow(df))                       
  #df[ , ncol(df) ] <- new                  
  #colnames(df)[ncol(df)] <- paste0("new", i) 
  #df<-cbind(df,sort(first_column))
}
df

View(df)

length_first_column<- length(first_column)
length_first_column

str(df)

df <- data.frame(x = c(6, 2), y = c(3, 6))

# Empty list
res <- vector("list", 2)

for(i in 1:ncol(df)) {
    for (j in 1:nrow(df)) {
        res[[j]][i] <- df[j, i] * 4
    }
}

res

make <- function(x0, n) {
  f <- function(x, m) {
    if(m <= n) {
      y <- paste(x[[ncol(x)]], x0)
      y <- data.frame(y, sort(y))
      names(y) <- paste("column", m:(m + 1L), sep = "_")
      out <- cbind(x, y)
      Recall(out, m + 2L)
    } else return(x)
  }
  x <- data.frame(x0, sort(x0))
  names(x) <- paste("column", 1:2, sep = "_")
  f(x, 3L)
}

first_column<- c("^","G","A","T","T","A","C","A")
make(first_column, 8)

NA

prep

Error: object 'prep' not found

You might like to try out knitting your document together as html now to see all the work you have done in the friendly html format.

Hopefully, this has given you some experience with the RStudio environment as well as objects, variables, data types and functions in the R language.

You should now have everything you need to tackle the next lesson, where we will learn how to import and manipulate data in R.

This is the end of the notebook.