## NOTE: FOLLOWING EXAMPLE NEEDS MUSCLE INSTALLED
if(check.utility("muscle")) {
##- Aligning a PDB sequence to an existing sequence alignment
##- Simple example
aln <- list(ali=seqbind(c("X","C","X","X","A","G","K"),
c("C","-","A","X","G","X","X","K")),
id=c("a","b"))
seqaln.pair(aln, outfile = tempfile())
}
Run the code above in your browser using DataLab