Skip to content
Snippets Groups Projects
Commit b0368c1e authored by Vincent LAVILLE's avatar Vincent LAVILLE
Browse files

Update correlationMatrix.R - Handling NAs

parent 89f00738
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 0 deletions
R/correlationMatrix.R
+ 1
− 0
View file @ b0368c1e
...@@ -96,6 +96,7 @@ changeCoding <- function(x, v) { ...@@ -96,6 +96,7 @@ changeCoding <- function(x, v) {
#' @export #' @export
#' #'
getGenoCorMatrix <- function(lrsid, lchr, lpos, lrefall, pop, path = NULL, web = TRUE, pruning = TRUE, rthresh = 1) { getGenoCorMatrix <- function(lrsid, lchr, lpos, lrefall, pop, path = NULL, web = TRUE, pruning = TRUE, rthresh = 1) {
option(warn = -1)
if (length(lchr) > 1) { if (length(lchr) > 1) {
lpop <- rep(pop, length(lchr)) lpop <- rep(pop, length(lchr))
referencedata <- mapply(get_vcf, lchr, lpos, lpos, lpop, MoreArgs = list(path, web), SIMPLIFY = FALSE) referencedata <- mapply(get_vcf, lchr, lpos, lpos, lpop, MoreArgs = list(path, web), SIMPLIFY = FALSE)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment