if (FALSE) {
## Loading the data
data(BeckLee_mat99)
data(BeckLee_tree)
data(BeckLee_ages)
## Creating the 7 subsets
subsets <- chrono.subsets(BeckLee_mat99, BeckLee_tree,
time = seq(from = 30, to = 90, by = 10),
method = "continuous", model = "ACCTRAN",
FADLAD = BeckLee_ages)
## Bootstrapping and rarefying
bootstraps <- boot.matrix(subsets, bootstraps = 100,
rarefaction = c(20, 15, 10, 5))
## Calculating disparity
disparity <- dispRity(bootstraps, metric = c(median, centroids))
}
Run the code above in your browser using DataLab