From 91a0d85f09be2fa12915a44f6089d4016186cc31 Mon Sep 17 00:00:00 2001
From: Vincent LAVILLE <vincent.laville@pasteur.fr>
Date: Mon, 4 Feb 2019 18:52:36 +0100
Subject: [PATCH] Update correlationMatrix.R
---
R/correlationMatrix.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/correlationMatrix.R b/R/correlationMatrix.R
index c2bea09..be5dc57 100644
--- a/R/correlationMatrix.R
+++ b/R/correlationMatrix.R
@@ -138,7 +138,7 @@ getGenoCorMatrix <- function(lrsid, lchr, lpos, lrefall, pop, path = NULL, web =
lind <- lind[lind$Paternal.ID == 0 & lind$Maternal.ID == 0, 2]
testMat <- getAdditivelyCodedMatrix(genoMat,lind)
- to_remove <- which(apply(testMat, 1, sd) == 0))
+ to_remove <- which(apply(testMat, 1, sd) == 0)
if (length(to_remove) > 0) {
testMat <- testMat[-to_remove, ]
genoMap <- genoMap[-to_remove, ]
--
GitLab