## Not run:
# suppressMessages(library(cubfits, quietly = TRUE))
#
# reu13.list <- convert.reu13.df.to.list(ex.train$reu13.df)
# y.list <- convert.y.to.list(ex.train$y)
# n.list <- convert.n.to.list(ex.train$n)
#
# scuo <- convert.y.to.scuo(ex.train$y)
#
# seq.data <- read.seq(get.expath("seq_200.fasta"))
# seq.string <- convert.seq.data.to.string(seq.data)
#
# codon.low2up("acg")
# codon.up2low("ACG")
#
# dna.low2up(c("a", "c", "g"))
# dna.up2low(c("A", "C", "G"))
# ## End(Not run)
Run the code above in your browser using DataLab