if (FALSE) { # requireNamespace("vegan", quietly = TRUE)
# \donttest{
library(vegan)
x <- matrix(sample(1:5, 50, replace = TRUE), 10, 5)
cs <- nullcat_commsim(n_iter = 1e4, method = "curvecat")
nm <- nullmodel(x, cs)
sims <- simulate(nm, nsim = 999)
# }
}
Run the code above in your browser using DataLab