# NOT RUN {
# create a QMatrix object
# provide an Alphabet object and the rates
m<-QMatrix(alphabet=BinaryAlphabet(), rate.list=list("0->1"=1,"1->0"=1))
# get the unscaled rate of "0->1" by name
getEventRate(m,"0->1") # retruns NA
# get the unscaled rate of "0->1" by states
getEventRate(m,from="0",to="1") # returns NA
# }
Run the code above in your browser using DataLab