tests/testthat/helpers/recover_betas.R
In sambrilleman/simsurv: Simulate Survival Data
recover_betas <- function(mod) {
nms <- names(mod$coefficients)
nms_drop <- c("log(scale)", "log(shape)")
sel <- setdiff(nms, nms_drop)
if (length(sel)) as.list(mod$coefficients[sel]) else NULL
}
sambrilleman/simsurv documentation built on Jan. 26, 2021, 6:11 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
recover_betas <- function(mod) {
nms <- names(mod$coefficients)
nms_drop <- c("log(scale)", "log(shape)")
sel <- setdiff(nms, nms_drop)
if (length(sel)) as.list(mod$coefficients[sel]) else NULL
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.