Nothing
centroid.default <-
function(nveg,grel,y,...) {
o.centroid<- rcentroid(nveg,grel,y,...)
class(o.centroid)<- "centroid"
o.centroid$call<- match.call()
cat("Call:\n")
print(o.centroid$call)
o.centroid
}
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.