# NOT RUN {
# Create a GeneralSubstitution object
p<-GeneralSubstitution(alphabet=BinaryAlphabet())
p
# get the associated QMatrix object from p
m<-p$qMatrix
summary(m)
# get the associated process from m
m$process
# clone p
pp<-clone(p)
# assotiate m with pp
pp$qMatrix<-m
# assotiate pp with m
m$process<-pp
m$process
# }
Run the code above in your browser using DataLab