From b0368c1e948675473f62b8121f934ff5985908e7 Mon Sep 17 00:00:00 2001
From: Vincent LAVILLE <vincent.laville@pasteur.fr>
Date: Fri, 11 Jan 2019 12:45:45 +0100
Subject: [PATCH] Update correlationMatrix.R - Handling NAs
---
R/correlationMatrix.R | 1 +
1 file changed, 1 insertion(+)
diff --git a/R/correlationMatrix.R b/R/correlationMatrix.R
index fd6a9cd..7c8ec4f 100644
--- a/R/correlationMatrix.R
+++ b/R/correlationMatrix.R
@@ -96,6 +96,7 @@ changeCoding <- function(x, v) {
#' @export
#'
getGenoCorMatrix <- function(lrsid, lchr, lpos, lrefall, pop, path = NULL, web = TRUE, pruning = TRUE, rthresh = 1) {
+ option(warn = -1)
if (length(lchr) > 1) {
lpop <- rep(pop, length(lchr))
referencedata <- mapply(get_vcf, lchr, lpos, lpos, lpop, MoreArgs = list(path, web), SIMPLIFY = FALSE)
--
GitLab