data(RPP16EE)
RPP16EE$Com
Jac(RPP16EE$Com)
if (FALSE) {
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