Update correlationMatrix.R

R/correlationMatrix.R

@@ -162,7 +162,7 @@ getGenoCorMatrix <- function(lrsid, lchr, lpos, lrefall, pop, path = NULL, web =
         }
         testMat <- changeCoding(testMat, as.character(lrefall) == genoMap$REF)
         colnames(testMat) <- lind
-        cormat = stats::cor(t(testMat))
+        cormat = stats::cor(t(testMat), use = "complete.obs")
         if (pruning) {
             return(pruneCorMatrix(cormat, rthresh))
         }