R/null.ci.R

In meboot: Maximum Entropy Bootstrap for Time Series

Defines functions null.ci

Documented in null.ci

null.ci <- function(x, level = 0.95, null.value = 0, type = 8, ...) 
{
  q <- mean(x <= null.value) * (1 - level)
  quantile(x, c(q, q + level), type = type, ...)
}

Try the meboot package in your browser