diff --git a/R/correlationMatrix.R b/R/correlationMatrix.R
index 3c21825f9f17d123ab30af455fe34e1142ce8142..7bb78bc5ca65095528b6c381897bd226a4fbd636 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)) {