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