update family call in .epiparameter_df_to_epiparameter

epiverse-trace · Oct 21, 2024 · 91c2950 · 91c2950
1 parent a2cfcb8
commit 91c2950
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/coercion.R b/R/coercion.R
@@ -197,7 +197,7 @@ is_epiparameter_df <- function(x) {
       distributional::parameters(x$prob_distribution[[1]])
     )
   }
-  if (identical(stats::family(prob_dist), "truncated")) {
+  if (identical(family(prob_dist), "truncated")) {
     truncation <- distributional::parameters(x$prob_distribution)$upper
   } else {
     truncation <- NA_real_