fix merge for interval evidence

bips-hb · Feb 21, 2024 · e0ed951 · e0ed951
1 parent 0bb3329
commit e0ed951
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -187,7 +187,7 @@ leaf_posterior <- function(params, evidence) {
   if (any(evidence$family != 'multinom')) { 
     evi <- evidence[family != 'multinom']
     evi[, n := .N, by = variable]
-    psi <- merge(evi, params$cnt, by = 'variable')
+    psi <- merge(evi, params$cnt, by = 'variable', allow.cartesian = TRUE)
     if (any(evi$relation == '==')) {
       psi[relation == '==', lik := 
             truncnorm::dtruncnorm(value, a = min, b = max, mean = mu, sd = sigma)]