## Generate a paleoTS objects
x <- paleoTS::sim.GRW(30)
## Fit the the model to the data.
x1<-paleoTS::opt.joint.GRW(x)
# \donttest{
## Create log-likelihood surface (the example may take > 5 seconds to run)
loglik.surface.GRW(x, mstep.vec= seq(0,0.3,0.01), vstep.vec = seq(0,0.3,0.01))
# }
Run the code above in your browser using DataLab