# NOT RUN {
docFile <- system.file("doc", "math-dplR.pdf", package="dplR")
cat("See the following PDF for mathematical details:\n")
cat(docFile, sep="\n")
# }
# NOT RUN {
if (interactive() && requireNamespace("Biobase")) {
Biobase::openPDF(docFile)
}
# }
# NOT RUN {
library(utils)
data(ca533)
ca533.rwi <- detrend(rwl = ca533, method = "ModNegExp")
ca533.crn <- chron(ca533.rwi, prefix = "CAM")
gini.coef(ca533.crn)
# }
Run the code above in your browser using DataLab