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