t_anchor = function() rnorm(1) # normally distributed uncertainty
x = tp_to_adm(t = c(1,2, 3), h = c(2,3, 4)) # simple age-depth model
m = anchor(x, index = "last", t_anchor = t_anchor, n = 100) # anchor age-depth model
plot(m)
m = anchor(x, index = 2L, t_anchor = t_anchor, n = 100)
plot(m)
Run the code above in your browser using DataLab