inst/tests/comparisons/penalisation.R

# 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)
}

Try the stepR package in your browser

Any scripts or data that you put into this service are public.

stepR documentation built on Nov. 14, 2023, 1:09 a.m.