minor improv in imputeGenosWithMeanPerPop()

timflutre · Nov 22, 2017 · 56b3857 · 56b3857
1 parent 99ad914
commit 56b3857
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: rutilstimflutre
 Title: Timothee Flutre's personal R code
-Version: 0.151.0
+Version: 0.151.1
 Authors@R: c(
     person("Timothee", "Flutre", email="[email protected]", role=c("aut", "ctb", "cre")),
     person("Peter", "Carbonetto", role="aut", comment="function from varbvs example"),

diff --git a/R/quantgen.R b/R/quantgen.R
@@ -5104,6 +5104,8 @@ imputeGenosWithMeanPerPop <- function(X, pops, min.maf.pop=0.1,
 
   pops$ind <- as.character(pops$ind)
   pops$pop <- as.character(pops$pop)
+  if(any(is.na(pops$pop)))
+    pops <- pops[! is.na(pops$pop),]
 
   if(verbose > 0){
     msg <- paste0("nb of genotypes: ", nrow(X),