R/contourProb.R

In icensBKL: Accompanion to the Book on Interval Censoring by Bogaerts, Komarek, and Lesaffre

Defines functions contourProb

Documented in contourProb

contourProb <- function(sample, theta0 = 0)
{
  sample <- sample[!is.na(sample)]
  plow <- sum(sample <= theta0) / length(sample)
  pupp <- sum(sample >= theta0) / length(sample)
  p <- 2 * min(c(plow, pupp))

  return(p)  
}    

Try the icensBKL package in your browser