R/logLik.flexCPH.R

logLik.flexCPH <-
function (object, ...) {
    out <- object$logLik
    attr(out, "df") <- length(unlist(object$coefficients))
    attr(out, "nobs") <- length(object$d)
    class(out) <- "logLik"
    out    
}
drizopoulos/JM documentation built on May 15, 2019, 2:12 p.m.