From 3d36be923f531ef4bc8420be2ff11db117b7436e Mon Sep 17 00:00:00 2001
From: Vincent LAVILLE <vincent.laville@pasteur.fr>
Date: Fri, 1 Feb 2019 15:05:59 +0100
Subject: [PATCH] Update correlationMatrix.R
---
R/correlationMatrix.R | 1 +
1 file changed, 1 insertion(+)
diff --git a/R/correlationMatrix.R b/R/correlationMatrix.R
index 4f3db96..3c21825 100644
--- a/R/correlationMatrix.R
+++ b/R/correlationMatrix.R
@@ -138,6 +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)
+ testMat <- testMat[-which(apply(testMat, 1, sd) == 0, ]
to_remove <- NULL
for (i in 1:nrow(testMat)) {
if (!(rownames(testMat)[i] %in% lrsid)) {
--
GitLab