# NOT RUN {
# create a GeneralSubstitution object
p<-GeneralSubstitution(alphabet=BinaryAlphabet())
# check if it has undefined rates
hasUndefinedRate(p) # TRUE
# set the missing rates
p$rateList<-list("0->1"=1,"1->0"=2)
# check for undefined rates again
hasUndefinedRate(p) # FALSE
# }
Run the code above in your browser using DataLab