Nothing
plot.Mtabs <-
function(x,...,method="normal") {
o.Mtabs<- x
veg<- o.Mtabs$veg
y<- o.Mtabs$transf.r
if(method == "normal") {
plottab(veg,o.Mtabs$order.rel,o.Mtabs$order.sp,o.Mtabs$order.relgr,o.Mtabs$order.spgr,y)
}
else {
plottabl(veg,o.Mtabs$order.rel,o.Mtabs$order.sp,o.Mtabs$order.relgr,o.Mtabs$order.spgr,y)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.