R/fitted.drc.R

"fitted.drc" <-
function(object, ...)
{
#    if (missing(...))
#    {
#        return(object$"predres"[, 1])
#    } else {
#        predict(object, ...)
#    }
    predict(object, ...)
##    return(object$"predres"[, 1])
}
DoseResponse/drc documentation built on May 7, 2021, 4:55 p.m.