Remove double square root

rgcca-factory · May 22, 2024 · be9c850 · be9c850
1 parent 3402cf9
commit be9c850
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/block_project.R b/R/block_project.R
@@ -31,7 +31,7 @@ block_project.dual_block <- function(x) {
 #' @export
 block_project.primal_regularized_block <- function(x) {
   if (any(x$a != 0)) {
-    a_norm <- sqrt(t(x$a) %*% x$M %*% x$a)
+    a_norm <- t(x$a) %*% x$M %*% x$a
     if (a_norm > 0) {
       x$a <- x$M %*% x$a / drop(sqrt(a_norm))
     } else {