## Generate a paleoTS objects
x <- paleoTS::sim.OU(40)
## Fit the model to the data.
x1<-paleoTS::opt.joint.OU(x)
##calculate half-life from model output
log(2)/x1$parameters[4]
##calculate stationary variance from model output
x1$parameters[2]/(2*x1$parameters[4])
# \donttest{
## Create log-likelihood surface (the example may take > 5 seconds to run)
loglik.surface.OU(x, stat.var.vec=seq(0.001,0.5,0.01), h.vec=seq(0.01,10, 0.1))
# }
Run the code above in your browser using DataLab