data(cana157)
crn.plot(cana157)
# Without sample depth
cana157.mod <- data.frame(TTRSTD=cana157[,1])
rownames(cana157.mod) <- rownames(cana157)
crn.plot(cana157.mod,add.spline=TRUE)
# With multiple chronologies
data(ca533)
ca533.rwi <- detrend(rwl = ca533, method = "ModNegExp")
ca533.crn <- chron(ca533.rwi, prefix = "CAM", prewhiten = TRUE)
crn.plot(ca533.crn,add.spline=TRUE,nyrs=64)
Run the code above in your browser using DataLab