fix is_continuous error msg

epiverse-trace · Aug 16, 2024 · eb610ee · eb610ee
1 parent 855017e
commit eb610ee
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/epiparameter.R b/R/epiparameter.R
@@ -877,7 +877,7 @@ is_truncated <- function(x) {
 #' is_continuous(ep)
 is_continuous <- function(x) {
   stopifnot(
-    "is_truncated only works for `<epiparameter> objects`" =
+    "is_continuous only works for `<epiparameter> objects`" =
       is_epiparameter(x)
   )
   family(x) %in% c("gamma", "lnorm", "weibull", "normal") &&