# NOT RUN {
# create a Site object and the associated NucleotideAlphabet object
s<-Site(alphabet=NucleotideAlphabet())
# create a K80 substitution process
p<-K80()
# attach p to s
attachProcess(s,p)
# get the list of attached processes
s$processes
# check write protection for p
p$writeProtected
# }
Run the code above in your browser using DataLab