if (FALSE) {
# EXAMPLE: Differential accumulation across bedding couplets
ex=etp(tmin=0,tmax=1000,dt=5,pWt=1,oWt=0,eWt=1,esinw=TRUE)
ex2=diffAccum(ex,0.01,.05)
ex2=linterp(ex2)
# evaluate with the timeOptTemplate approach
res1=timeOptTemplate(ex2,sedmin=1,sedmax=4,difmin=.5,difmax=6,numsed=100,output=1,ncores=2)
simres=timeOptTemplateSim(ex2,sedmin=1,sedmax=4,difmin=.5,difmax=6,numsed=100,numsim=1000,
output=2,ncores=2)
timeOptTemplatePlot(ex2,template=ex2,srMin=1,srMax=4,res1=res1,simres=simres,
targetP=c(23.62069,22.31868,19.06768,18.91979),
targetE=c(405.6795,130.719,123.839,98.86307,94.87666))
}
Run the code above in your browser using DataLab