avoid drop of dimension in iHS calculation

statgenlmu · Oct 22, 2015 · ba1b2ca · ba1b2ca
1 parent dcd39f9
commit ba1b2ca
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/sumstat_ihh.R b/R/sumstat_ihh.R
@@ -66,7 +66,7 @@ stat_ihh_class <- R6Class("stat_ihh", inherit = sumstat_class,
             else if ((rehh_data@nsnp < 400)) freqbin <- 0.1
             else freqbin <- 0.05
             ihs <- suppressWarnings(ihh2ihs(ihh, freqbin))
-            ihh <- cbind(ihh, iHS = ihs$res.ihs[ , "iHS"])
+            ihh <- cbind(ihh, iHS = ihs$res.ihs[ , "iHS", drop = FALSE])
           }
         }