Nothing
calculate.quantiles <-
function (differences, remove.ratio)
{
quantiles <- seq(remove.ratio, 1 - remove.ratio, 0.01)
differences.sorted <- sort(differences)
indices <- floor(quantiles * length(differences.sorted)) +
1
indices[length(indices)] = indices[length(indices) - 1]
differences.quantile <- differences.sorted[indices]
return(differences.quantile)
}
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.