Merge pull request #9 from katehoffshutta/ggm-diag-fix

fixed bug w/self-edges in GGM
katehoffshutta · Nov 28, 2023 · fccfaf8 · fccfaf8
2 parents bdbe676 + c4d4dbf
commit fccfaf8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/DRAGON.R b/R/DRAGON.R
@@ -301,7 +301,7 @@ get_partial_correlation_from_precision = function(Theta,selfEdges=F)
   # by default, does not return self edges (diagonal is set to zero)
   ggm = -cov2cor(Theta)
   if(!selfEdges)
-    ggm[diag(ggm)] = 0
+    diag(ggm) = 0
   return(ggm)
 }