Nothing
# penalisation sqrt
penalisationSqrt <- function(stat, n, len) {
sqrt(2 * stat) - sqrt(2 * log(exp(1) * n / len))
}
# penalisation log
penalisationLog <- function(stat, n, len) {
stat - log(exp(1) * n / len)
}
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.