Nothing
rarefy <-
function(raw, fraction)
{
if (fraction > 1)
{
stop("fraction must be less than 1")
}
nr <- nrow(raw)
indices <- sample(nr, floor(fraction*nr))
return(raw[indices,])
}
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.