Merge pull request #9 from ibecav/dev054

Dev054

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: CGPfunctions
 Title: Powell Miscellaneous Functions for Teaching and Learning Statistics
-Version: 0.5.3
+Version: 0.5.4
 Authors@R: person("Chuck", "Powell", email = "ibecav@gmail.com", role = c("aut", "cre"))
 Description: Miscellaneous functions useful for teaching statistics as well as actually practicing the art. They typically are not “new” methods but rather wrappers around either base R or other packages.
 Depends: R (>= 3.5.0)

NEWS.md

@@ -1,5 +1,8 @@
-# CGPfunctions 0.5.3
+# CGPfunctions 0.5.4
 
+* Release 0.5.4 hotfix release 8 April 2019
+  - Updated Plot2WayANOVA to remedy an error when there were zero significant effects
+    and post hoc tests failed
 * Release 0.5.3 stable release 3 April 2019
   - Updated vignette for Plot2WayANOVA
   - Major improvements and features added to Plot2WayANOVA

R/Plot2WayANOVA.R

@@ -343,10 +343,14 @@ Plot2WayANOVA <- function(formula,
   SWTest <- shapiro.test(x = MyAOV_residuals) # run Shapiro-Wilk test
   # Grab on the effects that were significant in omnibuds test
   sigfactors <- filter(WithETA, p.value <= 1 - confidence) %>% select(term)
-  posthocresults <- PostHocTest(MyAOV, 
-                                method = posthoc.method, 
-                                conf.level = confidence,
-                                which =  as.character(sigfactors[,1]))
+  if(nrow(sigfactors) > 0) {
+    posthocresults <- PostHocTest(MyAOV, 
+                                  method = posthoc.method, 
+                                  conf.level = confidence,
+                                  which =  as.character(sigfactors[,1]))
+  } else {
+    posthocresults <- "No signfiicant effects"
+  }
 
   # -------- save the common plot items as a list to be used ---------