codon_finder
codon_finder.Rmd
library(saferTool2)Datasets
pos_set1 <- c(3, 7, 9, 12, 15)
pos_set2 <- c(1, 4, 8, 11, 14)
pos_set3 <- c(2, 5, 10, 13, 16)
pos_set4 <- c(6, 13, 17, 19, 20)
pos_set5 <- c(1, 2, 4, 8, 9)
begin_value <- 0
end_value <- 20
begin_value2 <- -4
end_value2 <- 22Datasets info
pos_set1
> [1] 3 7 9 12 15
pos_set2
> [1] 1 4 8 11 14
pos_set3
> [1] 2 5 10 13 16
pos_set4
> [1] 6 13 17 19 20
pos_set5
> [1] 1 2 4 8 9
begin_value
> [1] 0
end_value
> [1] 20
begin_value2
> [1] -4
end_value2
> [1] 22All the arguments
codon_finder(pos = pos_set1, begin = begin_value, end = end_value, safer_check = TRUE)
> pos codon_nb codon_pos codon_begin codon_end
> 1 3 2 1 3 5
> 2 7 3 2 6 8
> 3 9 4 1 9 11
> 4 12 5 1 12 14
> 5 15 6 1 15 17
codon_finder(pos = pos_set2, begin = begin_value, end = end_value, safer_check = TRUE)
> pos codon_nb codon_pos codon_begin codon_end
> 1 1 1 2 0 2
> 2 4 2 2 3 5
> 3 8 3 3 6 8
> 4 11 4 3 9 11
> 5 14 5 3 12 14
codon_finder(pos = pos_set3, begin = begin_value, end = end_value, safer_check = TRUE)
> pos codon_nb codon_pos codon_begin codon_end
> 1 2 1 3 0 2
> 2 5 2 3 3 5
> 3 10 4 2 9 11
> 4 13 5 2 12 14
> 5 16 6 2 15 17
codon_finder(pos = pos_set4, begin = begin_value, end = end_value, safer_check = TRUE)
> pos codon_nb codon_pos codon_begin codon_end
> 1 6 3 1 6 8
> 2 13 5 2 12 14
> 3 17 6 3 15 17
> 4 19 7 2 18 20
> 5 20 7 3 18 20
codon_finder(pos = pos_set5, begin = begin_value, end = end_value, safer_check = TRUE)
> pos codon_nb codon_pos codon_begin codon_end
> 1 1 1 2 0 2
> 2 2 1 3 0 2
> 3 4 2 2 3 5
> 4 8 3 3 6 8
> 5 9 4 1 9 11
codon_finder(pos = pos_set1, begin = begin_value2, end = end_value2, safer_check = TRUE)
> pos codon_nb codon_pos codon_begin codon_end
> 1 3 3 2 2 4
> 2 7 4 3 5 7
> 3 9 5 2 8 10
> 4 12 6 2 11 13
> 5 15 7 2 14 16
codon_finder(pos = pos_set2, begin = begin_value2, end = end_value2, safer_check = TRUE)
> pos codon_nb codon_pos codon_begin codon_end
> 1 1 2 3 -1 1
> 2 4 3 3 2 4
> 3 8 5 1 8 10
> 4 11 6 1 11 13
> 5 14 7 1 14 16
codon_finder(pos = pos_set3, begin = begin_value2, end = end_value2, safer_check = TRUE)
> pos codon_nb codon_pos codon_begin codon_end
> 1 2 3 1 2 4
> 2 5 4 1 5 7
> 3 10 5 3 8 10
> 4 13 6 3 11 13
> 5 16 7 3 14 16
codon_finder(pos = pos_set4, begin = begin_value2, end = end_value2, safer_check = TRUE)
> pos codon_nb codon_pos codon_begin codon_end
> 1 6 4 2 5 7
> 2 13 6 3 11 13
> 3 17 8 1 17 19
> 4 19 8 3 17 19
> 5 20 9 1 20 22
codon_finder(pos = pos_set5, begin = begin_value2, end = end_value2, safer_check = TRUE)
> pos codon_nb codon_pos codon_begin codon_end
> 1 1 2 3 -1 1
> 2 2 3 1 2 4
> 3 4 3 3 2 4
> 4 8 5 1 8 10
> 5 9 5 2 8 10