# NOT RUN {
data(RPP16EE)
RPP16EE$Com
Jac(RPP16EE$Com)
# }
# NOT RUN {
if(require(ade4) && require(adegraphics)){
oldparamadeg <- adegpar()
adegpar("plegend.drawKey" = FALSE)
table.value(RPP16EE$Com)
adegpar(oldparamadeg)
# In this graph, black squares indicate
# which species (S1-S15) are present in which plot (P1-P9)
}
# }
Run the code above in your browser using DataLab