## Derive a profile hidden Markov model from the small globin alignment
data(globins)
x <- derivePHMM(globins, residues = "AMINO", seqweights = NULL)
fl <- tempfile()
writePHMM(x, file = fl)
readPHMM(fl)
Run the code above in your browser using DataLab