R/obsSensNCC.R

`obsSensNCC` <-
function(model, which = 2, g0 = c(2,6,10),
                       g1, p0 = seq(0,1,.2), p1=p0,
                       log=TRUE, method=c('approx','sim')) {
  method <- match.arg(method)
  if(method=='sim') {
    stop('simulation method not implemented yet')
  }

  out <- if(missing(g1)){
    obsSensCCC(model=model, which=which, g0=g0,
               p0=p0, p1=p1, logOdds=log, method=method)
  } else {
    obsSensCCC(model=model, which=which, g0=g0, g1=g1,
               p0=p0, p1=p1, logOdds=log, method=method)
  }

  out$type <- 'num'
  
  out
}

Try the obsSens package in your browser

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

obsSens documentation built on May 1, 2019, 7:55 p.m.