From ce52f22caaabbf175f14138e2945b6e65424c502 Mon Sep 17 00:00:00 2001
From: Vincent LAVILLE <vincent.laville@pasteur.fr>
Date: Fri, 1 Feb 2019 15:07:52 +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 3c21825..7bb78bc 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)
- testMat <- testMat[-which(apply(testMat, 1, sd) == 0, ]
+ testMat <- testMat[-which(apply(testMat, 1, sd) == 0), ]
to_remove <- NULL
for (i in 1:nrow(testMat)) {
if (!(rownames(testMat)[i] %in% lrsid)) {
--
GitLab