BWT Draft2

rm(list=ls())

library(stringr)
library(ottr)

options(bitmapType='cairo')

library(readr)
library(stringr)

#here am sharing diffrent ways to assign our letters to numbers, please go through these codes and let me know which code is better to use

#option (1)

x <- c(A=1, C=2, G=3, T=4, `^`= 5, `!`=6)
x

A C G T ^ ! 
1 2 3 4 5 6 

y <- "!^GATTACA"
s <- strsplit(y, "")[[1]]
i <- match(s, names(x))
i

[1] 6 5 3 1 4 4 1 2 1

s[c(3:length(s), 1, 2)]

[1] "G" "A" "T" "T" "A" "C" "A" "!" "^"

paste(s[c(3:length(s), 1, 2)], collapse = "")

[1] "GATTACA!^"

option (2), I found out that from the library “stringr” there is a function called str_replace_all

x = "!^GATTACA"
str_replace_all(x, c("A"="1", "C"="2", "G"="3", "T"="4", "\\^"="5", "\\!"="6"))

[1] "653144121"