# NOT RUN {
       # create a GeneralSubstitution object
       # provide an Alphabet object and the rates
       p<-GeneralSubstitution(alphabet=BinaryAlphabet(), rate.list=list("1->0"=1,"0->1"=3))
	# get the QMatrix object from p
	m<-p$QMatrix
	# get the scaled rate matrix from m
	m$scaledMatrix
 
# }
Run the code above in your browser using DataLab