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 = 0, to = 120, by = 1),
method = "continuous", model = "proximity",
FADLAD = BeckLee_ages)
## Bootstrapping and rarefying
bootstraps <- boot.matrix(subsets, bootstraps = 100)
## Calculating disparity
BeckLee_disparity <- dispRity(bootstraps, metric = c(sum, variances))
}
Run the code above in your browser using DataLab