rr <- lm(Fertility ~ . , data = swiss)
getcoeftable(rr) # identical to coef(summary(rr)) or also summary(rr)$coefficients
getscalepar(rr)
if(requireNamespace("survival", quietly=TRUE)) {
data(ovarian) ## , package="survival"
rs <- survival::survreg(survival::Surv(futime, fustat) ~ ecog.ps + rx,
data = ovarian, dist = "weibull")
getcoeftable(rs)
getcoeffactor(rs)
}
Run the code above in your browser using DataLab