To facilitate support for earlier versions of R, avoid using the buil…

…t-in pipe for now. closes #27
statnet · Sep 14, 2023 · 3694b7a · 3694b7a
1 parent f493236
commit 3694b7a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/matrix.utils.R b/R/matrix.utils.R
@@ -214,7 +214,7 @@ xTAx_ssolve <- function(x, A, ...) {
 #' @export
 xTAx_qrssolve <- function(x, A, tol = 1e-07, ...) {
   d <- diag(as.matrix(A))
-  d <- ifelse(d==0, 1, 1/d) |> sqrt()
+  d <- sqrt(ifelse(d==0, 1, 1/d))
 
   if(anyNA(d)) stop("Matrix x has negative elements on the diagonal.")
   dd <- rep(d, each = length(d)) * d