R/coef.drcte.R

In drcte: Statistical Approaches for Time-to-Event Data in Agriculture

"coef.drcte" <-
function(object, ...)
{
    if (!is.null(object$"coefficients"))
    {
        return(object$"coefficients")
    } else {
        retVec <- c()
        # names(retVec) <- object$parNames[[1]]
        return(retVec)
    }
}