confint.predictnl: confint method for a predictnl object.

In mclements/numdelta: Numerical delta method

Usage

## S3 method for class 'predictnl'
confint(object, parm, level = 0.95, ...)

Arguments

object
parm
level

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (object, parm, level = 0.95) 
{
    cf <- object$fit
    pnames <- names(cf)
    if (missing(parm)) 
        parm <- pnames
    else if (is.numeric(parm)) 
        parm <- pnames[parm]
    a <- (1 - level)/2
    a <- c(a, 1 - a)
    pct <- stats:::format.perc(a, 3)
    fac <- qnorm(a)
    ci <- array(NA, dim = c(length(parm), 2L), dimnames = list(parm, 
        pct))
    ses <- object$se.fit[parm]
    ci[] <- cf[parm] + ses %o% fac
    ci
  }

mclements/numdelta documentation built on May 22, 2019, 3:10 p.m.