Nothing
pPool <- function(p){
n <- length(p)
k <- 1 + floor(n / 2)
pp <- rev(sort(p))
j <- 2:k
red <- c(1, pp[2 * j - 2])
return(red)
}
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.