# NOT RUN {
# create a GeneralSubstitution object with an attached BinaryAlphabet object
p<-GeneralSubstitution(alphabet=BinaryAlphabet())
# get object summary
summary(p)
# get alphabet
getAlphabet(p)
# get alphabet via virtual field
p$alphabet
# set a new alphabet
setAlphabet(p,NucleotideAlphabet())
summary(p)
# set alphabet via virtual field
p$alphabet<-BinaryAlphabet()
p$alphabet
# }
Run the code above in your browser using DataLab