fix error in restriction_mat check

eso28599 · eso28599 · commit 375c94876935 · 2025-05-14T12:29:01.000+01:00
diff --git a/R/utils.r b/R/utils.r
@@ -310,7 +310,7 @@ check_restriction_mat <- function(matrix, name) {
     if (any(matrix < 0)) {
       stop(paste(name, " must be a non-negative matrix."))
     }
-    if (dim(matrix) != c(length(data), length(data))) {
+    if (any(dim(matrix) != c(length(data), length(data)))) {
       stop(paste(name, " must be of the same dimensions as data."))
     }
   }

Original file line number	Diff line number	Diff line change
`@@ -310,7 +310,7 @@ check_restriction_mat <- function(matrix, name) {`
`310`	`310`	`if (any(matrix < 0)) {`
`311`	`311`	`stop(paste(name, " must be a non-negative matrix."))`
`312`	`312`	`}`
`313`		`- if (dim(matrix) != c(length(data), length(data))) {`
	`313`	`+ if (any(dim(matrix) != c(length(data), length(data)))) {`
`314`	`314`	`stop(paste(name, " must be of the same dimensions as data."))`
`315`	`315`	`}`
`316`	`316`	`}`