# NOT RUN {
data('Chymo_low')
time1=max(Chymo_low[,1])*1.01
sm_GPMH=GP.MM(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
,MM_m_v=c(1,1e+10),sig=8e+7,va=var(Chymo_low[,2]))
# use RAM algorithm #
sm_GPRAM=GP.MM(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
,MM_m_v=c(1,1e+10),sig=500,va=var(Chymo_low[,2]))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab