From 4c1e8a8e1eb999ec5019b96e1de94f0ce1a91080 Mon Sep 17 00:00:00 2001
From: Gavin Rhys Lloyd <g.r.lloyd@bham.ac.uk>
Date: Mon, 26 Jul 2021 09:12:55 +0100
Subject: [PATCH] correctly pass unbalanced param to HSD.test #62

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

diff --git a/R/HSD_class.R b/R/HSD_class.R
index 6bc0410..c2fd0c0 100644
--- a/R/HSD_class.R
+++ b/R/HSD_class.R
@@ -138,7 +138,7 @@ setMethod(f="model_apply",
 
             # for each combination of factors...
             out2=lapply(FF,function(x) {
-                A=agricolae::HSD.test(LM,x,group = FALSE)$comparison
+                A=agricolae::HSD.test(LM,x,group = FALSE,unbalanced=M$unbalanced)$comparison
                 if (ALIAS) {
                     A[!is.na(A)]=NA # replace with NA if alias are present
                 }