if (FALSE) { # requireNamespace("vegan", quietly = TRUE)
# \donttest{
library(vegan)
x <- matrix(rexp(50), 10, 5)
cs <- quantize_commsim(
n_strata = 10,
method = "curvecat",
n_iter = 1000L
)
nm <- nullmodel(x, cs)
sims <- simulate(nm, nsim = 999)
# }
}
Run the code above in your browser using DataLab