fix bug in is_continuous for <epiparameter>s with normal distributions,

closes #421
epiverse-trace · Nov 27, 2024 · 1c94e67 · 1c94e67
1 parent 11c352f
commit 1c94e67
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/epiparameter.R b/R/epiparameter.R
@@ -812,7 +812,7 @@ is_continuous <- function(x) {
     fam <- family(x)
   }
 
-  all(fam %in% c("gamma", "lnorm", "weibull", "normal")) &&
+  all(fam %in% c("gamma", "lnorm", "weibull", "norm")) &&
     !inherits(x$prob_distribution, "distcrete")
 }