# NOT RUN {
# create a QMatrix object
# , provide Alphabet object and rates
m<-QMatrix(name="Susie Q", alphabet=BinaryAlphabet(), rate.list=list("1->0"=2,"0->1"=3))
# get object summary
summary(m)
# perform scaling
Scale(m, 1/0.666)
# get object summary
summary(m)
# }
Run the code above in your browser using DataLab