## Load the disparity data based on Beck & Lee 2014
data(disparity)
## To get the original matrix
get.matrix(disparity)
## To get the un-bootstrapped matrix from the subset called "80"
get.matrix(disparity, subsets = "80")
## To get the 52nd bootstrap draw of the second rarefaction level (15) of the
## same subset
get.matrix(disparity, subsets = 2, rarefaction = 2, bootstrap = 52)
## Extracting the observed disparity
get.disparity(disparity)
## Extracting the bootstrapped disparity
boot_disp <- get.disparity(disparity, observed = FALSE)
str(boot_disp)
## Or only the rarefied (5) data
boot_disp_rare <- get.disparity(disparity, observed = FALSE,
rarefaction = 5)
Run the code above in your browser using DataLab