tests/testthat/helpers/is_exponential.R

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