Deploying to r-dev from @ b63faed 🚀

andrewherren · andrewherren · commit 4090e3b64371 · 2025-12-11T17:39:20.000Z
diff --git a/R/posterior_transformation.R b/R/posterior_transformation.R
@@ -419,9 +419,11 @@ compute_contrast_bart_model <- function(
       if (!is.matrix(rfx_basis_0) || !is.matrix(rfx_basis_1)) {
         stop("'rfx_basis_0' and 'rfx_basis_1' must be matrices")
       }
-      if ((nrow(rfx_basis_0) != nrow(X)) || (nrow(rfx_basis_1) != nrow(X))) {
+      if (
+        (nrow(rfx_basis_0) != nrow(X_0)) || (nrow(rfx_basis_1) != nrow(X_1))
+      ) {
         stop(
-          "'rfx_basis_0' and 'rfx_basis_1' must have the same number of rows as 'X'"
+          "'rfx_basis_0' and 'rfx_basis_1' must have the same number of rows as 'X_0' and 'X_1'"
         )
       }
       if (

Original file line number	Diff line number	Diff line change
`@@ -419,9 +419,11 @@ compute_contrast_bart_model <- function(`
`419`	`419`	`if (!is.matrix(rfx_basis_0) \|\| !is.matrix(rfx_basis_1)) {`
`420`	`420`	`stop("'rfx_basis_0' and 'rfx_basis_1' must be matrices")`
`421`	`421`	`}`
`422`		`- if ((nrow(rfx_basis_0) != nrow(X)) \|\| (nrow(rfx_basis_1) != nrow(X))) {`
	`422`	`+ if (`
	`423`	`+ (nrow(rfx_basis_0) != nrow(X_0)) \|\| (nrow(rfx_basis_1) != nrow(X_1))`
	`424`	`+ ) {`
`423`	`425`	`stop(`
`424`		`- "'rfx_basis_0' and 'rfx_basis_1' must have the same number of rows as 'X'"`
	`426`	`+ "'rfx_basis_0' and 'rfx_basis_1' must have the same number of rows as 'X_0' and 'X_1'"`
`425`	`427`	`)`
`426`	`428`	`}`
`427`	`429`	`if (`