Nothing
# compute thresholds
pc_th <- function(Y, freq=NULL, prop=NULL) {
# my line:
Y <- Y-min(Y, na.rm=T)+1# start at 1, required by tabulate
if(is.null(prop)) {
if(is.null(freq)) freq <- base::tabulate(Y)
prop <- freq / sum(freq)
}
prop1 <- prop[-length(prop)]
stats::qnorm(base::cumsum(prop1))
}
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.