R/AIC.drcOrdinal.R

Defines functions AIC.drcOrdinal

AIC.drcOrdinal <- function(object, epsilon = 10^(-16)){
  n.parameters <- sum(sapply(object$drmList, function(mod) length(mod$coefficients)))
  - 2 * logLik(object, epsilon) + 2 * n.parameters
}
DoseResponse/bmd documentation built on March 29, 2025, 4:36 p.m.