# NOT RUN {
## NOTE: The values below MUST NOT be used in a real application;
## they are only used here to make the examples run quick!!!
example_mcmc_control <- list(n.burnin = 10, n.iteration = 100,
n.thin = 1)
library(mvabund) ## Load a dataset from the mvabund package
library(corrplot) ## For plotting correlations
data(spider)
y <- spider$abun
X <- scale(spider$x)
n <- nrow(y)
p <- ncol(y)
spiderfit_nb <- boral(y, X = X, family = "negative.binomial",
save.model = TRUE, mcmc.control = example_mcmc_control,
save.model = TRUE)
mcmcsamps <- get.mcmcsamples(spiderfit_nb)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab