if (FALSE) { # requireNamespace("vegan", quietly = TRUE)
# \donttest{
library(vegan)
x <- matrix(rexp(50), 10, 5)
cs <- quantize_commsim_seq(
n_strata = 5,
method = "curvecat"
)
nm <- nullmodel(x, cs)
sims <- simulate(
nm,
nsim = 999,
thin = 10, # 10 quantize updates between stored states
burnin = 100 # 100 initial steps discarded
)
# }
}
Run the code above in your browser using DataLab