if (FALSE) {
## Load a dataset from the mvabund package
data(antTraits, package = "mvabund")
y <- as.matrix(antTraits$abund)
# Fit gllvm model
fit <- gllvm(y = y, family = poisson())
summary(fit)
## Plot canonical coefficients
X = antTraits$env
fit2 <- gllvm(y = y, X = X, family = "negative.binomial", num.RR = 2)
plot(summary(fit2))
}
Run the code above in your browser using DataLab