powered by
sim.covTrack(ns = 20, b = 1, evar = 0.1, z, nn = rep(20, times = ns), tt = 0:(ns-1), vp = 1)
paleoTSfit
opt.covTrack
as.paleoTSfit
z<- rnorm(20) x<- sim.covTrack(ns=20, b=2, evar=0.3, z) plot(diff(z), diff(x$mm), xlab="Change in covariate", ylab="Change in Trait") abline(h=0, lty=3) abline(v=0, lty=3)
Run the code above in your browser using DataLab