From 02a5d057b246b45f241e4b0a07b884fe4d4222dc Mon Sep 17 00:00:00 2001
From: Fabian Dablander <fdabl@wcw-staff-145-109-66-185.wireless.uva.nl>
Date: Wed, 10 Oct 2018 11:07:44 +0200
Subject: [PATCH] fixed bug in rmvDAG

---
 R/pcalg.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/pcalg.R b/R/pcalg.R
index 623a150..8b77260 100644
--- a/R/pcalg.R
+++ b/R/pcalg.R
@@ -176,7 +176,7 @@ rmvDAG <-
     colnames(errMat) <- nodes(dag) # == colnames(weightMatrix)
 
   ## compute X matrix X_i
-  if (sum(weightMatrix) > 0) {
+  if (sum(abs(weightMatrix)) > 0) {
     X <- errMat
     for (j in 2:p) { ## uses X[*, 1:(j-1)] -- "recursively" !
       ij <- 1:(j-1)