Rosalind——生物信息刷题库,用编程解决问题
R
dna <- “AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC”
方案1
table(strsplit(d,”“)[[1]])
A C G T
20 12 17 21
方案2
library(stringr)
str_count(dna,c(“A”,”C”,”G”,”T”))
20 12 17 21
Rosalind——生物信息刷题库,用编程解决问题
dna <- “AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC”
table(strsplit(d,”“)[[1]])
A C G T
20 12 17 21
library(stringr)
str_count(dna,c(“A”,”C”,”G”,”T”))
20 12 17 21