powered by
c("c", "c", "g")
"s"
bma(nucl, warn.non.IUPAC = TRUE, type = c("DNA", "RNA"))
citation("seqinr")
amb
toupper
stopifnot(bma(s2c("atatattttata")) == "w") stopifnot(bma(s2c("gcggcgcgcggc")) == "s") stopifnot(bma(s2c("ACGT")) == "n") stopifnot(is.na(bma(s2c("atatttt---tatat")))) # a warning is issued
Run the code above in your browser using DataLab