R/fitted.drc.R

In drc: Analysis of Dose-Response Curves

"fitted.drc" <-
function(object, ...)
{
#    if (missing(...))
#    {
#        return(object$"predres"[, 1])
#    } else {
#        predict(object, ...)
#    }
    predict(object, ...)
##    return(object$"predres"[, 1])
}