# NOT RUN {
data('Chymo_low')
time1=max(Chymo_low[,1])*1.01
sk_GPMH=GP.cat(method=TRUE,time=time1,dat=Chymo_low[,2],enz=4.4e+7,subs=4.4e+7
,MM=4.4e+8,catal=0.05,nrepeat=10000,jump=1,burning=0
,catal_m_v=c(1,10000),sig=0.016,va=var(Chymo_low[,2]))
# use RAM algorithm #
sk_GPRAM=GP.cat(method=TRUE,RAM=TRUE,time=time1,dat=Chymo_low[,2],enz=4.4e+7,subs=4.4e+7
,MM=4.4e+8,catal=0.05,nrepeat=10000,jump=1,burning=0
,catal_m_v=c(1,10000),sig=0.1,va=var(Chymo_low[,2]))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab