powered by
gccount(inseq)
s <- "AAAACCCGGT" cnt <- gccount(s) cnt stopifnot(cnt==table(strsplit(s,"")))
Run the code above in your browser using DataLab