From ba1b2ca42bc040354c27891dbfd3d25691172a82 Mon Sep 17 00:00:00 2001
From: Paul Staab <develop@paulstaab.de>
Date: Thu, 22 Oct 2015 14:07:17 +0200
Subject: [PATCH] avoid drop of dimension in iHS calculation

---
 R/sumstat_ihh.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/sumstat_ihh.R b/R/sumstat_ihh.R
index 7408f4b..e31ccd1 100644
--- 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])
           }
         }