tests/testthat/helpers/is_weibull.R

is_weibull <- function(mod) {
  (mod$dist == "weibull" && mod$shape == 0)
}
sambrilleman/simsurv documentation built on Jan. 26, 2021, 6:11 p.m.