## Generate a paleoTS objects
x <- paleoTS::sim.GRW(30)
## Fit a the model to the data by defining shift points.
x1<-paleoTS::opt.joint.URW(x)
## Create log-likelihood surface (the example may take > 5 seconds to run)
loglik.surface.URW(x, vstep.vec = seq(0,0.5,0.001))
Run the code above in your browser using DataLab