Nothing
`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
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.