## Derive a profile hidden Markov model from the small globin alignment
data(globins)
x <- derivePHMM(globins, residues = "AMINO", seqweights = NULL)
x
fl <- tempfile()
writePHMM(x, file = fl)
readPHMM(fl)
##
## Derive a PHMM for the woodmouse data and write to file
# \donttest{
library(ape)
data(woodmouse)
woodmouse.PHMM <- derivePHMM(woodmouse)
tmpf <- tempfile(fileext = ".hmm")
writePHMM(woodmouse.PHMM, file = tmpf)
# }
Run the code above in your browser using DataLab