Nothing
"trnc" <-
function(y, prob) {
if (prob > 0) {
qs <- quantile(y, probs=prob)
ifelse(y < qs, y, qs)
}
else rep(min(y), length(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.