R/WeibullReg.R

In SurvRegCensCov: Weibull Regression for a Right-Censored Endpoint with Interval-Censored Covariate

WeibullReg <- function (formula, data = parent.frame(), conf.level = 0.95){
    m <- survival::survreg(formula, data, dist = "weibull")
    mle <- ConvertWeibull(m, conf.level = conf.level)
    return(list(formula = formula, coef = mle$vars, HR = mle$HR, ETR = mle$ETR, summary = summary(m)))
}