# NOT RUN {
# create a ToleranceSubstitution object
p<-ToleranceSubstitution(
alphabet=BinaryAlphabet(),
rate.list=list("0->1"=1,"1->0"=2),
name="MyBinary"
)
# clone p
pp<-clone(p)
# do some checks
p;pp
p == p
p == pp
equals(p$qMatrix, pp$qMatrix)
# }
Run the code above in your browser using DataLab