R/obsSensNCN.R

In obsSens: Sensitivity Analysis for Observational Studies

`obsSensNCN` <-
function(model, which = 2,
                       gamma=round(seq(0,3,length=6),4),
                       delta = seq(0,3,0.5),
                       log=TRUE, method=c('approx','sim')) {
  method <- match.arg(method)
  if(method=='sim') {
    stop('simulation method not implemented yet')
  }

  out <- obsSensCCN(model=model, which=which, gamma=gamma,
               delta=delta, logOdds=log, method=method)

  out$type <- 'num'
  
  out
}