R/fitted.drc.R

In MaximeBSanofi/drc2:

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