# NOT RUN {
# create a T92 object
p<-T92()
# set/get rate parameters
setRateParamList(p,list(
"Alpha"=1,
"Beta"=0.5
))
getRateParamList(p)
# set/get rate parameters via virtual field
p$rateParamList<-list(
"Alpha"=1,
"Beta"=3
)
p$rateParamList
# get object summary
summary(p)
# }
Run the code above in your browser using DataLab