R/confi.fun.R

"confi.fun" <-
function(abw,kap.mei,method)
{
    # Using the already calculated derivation this function calculates
    # the upper and lower boundary of a confidence band by substracting
    # resp. adding the derivation "abw".
    
    if(method=="linear")
    {
        lower <- kap.mei-abw
        upper <- kap.mei+abw
    }
    if(method=="log")
    {
        lower <- kap.mei^(1/abw)
        upper <- kap.mei^abw
    }
    return(list(lower=lower,upper=upper))
}

Try the km.ci package in your browser

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

km.ci documentation built on May 2, 2019, 2:46 a.m.