From 4cc53cb670f57736196f446b703cfdd1d5ea1508 Mon Sep 17 00:00:00 2001
From: Gavin Rhys Lloyd <g.r.lloyd@bham.ac.uk>
Date: Fri, 16 Jul 2021 15:01:09 +0100
Subject: [PATCH] fix for #62

unbalanced input now passed to HSD.test
---
 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
                 }