# NOT RUN {
require(graphics)
data(spider)
spiddat <- mvabund(spider$abund)
X=as.matrix(spider$x)
## Create a formula for multivariate abundance data:
foo <- mvformula( spiddat~X )
## Check whether foo is a mvformula:
is.mvformula(foo)
## Plot a mvformula:
plot(foo)
# }
Run the code above in your browser using DataLab