# NOT RUN {
# cretate a nucleotide sequence
s<-NucleotideSequence(string="ATG")
# clone the sequence
cs<-clone(s)
# get some properties
equals(s,s)
equals(s,cs)
cs$ancestral
cs$sites[[1]]$ancestral
# }
Run the code above in your browser using DataLab