From d605bcf4e231a4c294c8fe65b1a32ed6db9d5be4 Mon Sep 17 00:00:00 2001 From: "Brenton M. Wiernik" Date: Tue, 28 Mar 2023 17:06:40 -0400 Subject: [PATCH 1/2] Fix typo in anovaTable() --- R/anova_psem.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/anova_psem.R b/R/anova_psem.R index b4173d1..f192f66 100644 --- a/R/anova_psem.R +++ b/R/anova_psem.R @@ -92,7 +92,7 @@ anovaTable <- function(object, anovafun = "Anova", digits = 3) { DF <- ifelse(any(grepl("numDF", colnames(dat))), dat$numDF, dat$Df) - Test.Stat <- ifelse(any(grepl("F-value", colnames(dat))), dat$`F-value`, dat[, 1]) + Test.Stat <- ifelse(any(grepl("F value", colnames(dat))), dat$`F-value`, dat[, 1]) ret <- data.frame( Response = response, From 8193fa2a336a2694ec61b652107d1f70352f3a80 Mon Sep 17 00:00:00 2001 From: "Brenton M. Wiernik" Date: Tue, 28 Mar 2023 17:08:46 -0400 Subject: [PATCH 2/2] Update anova_psem.R --- R/anova_psem.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/anova_psem.R b/R/anova_psem.R index f192f66..9340652 100644 --- a/R/anova_psem.R +++ b/R/anova_psem.R @@ -92,7 +92,7 @@ anovaTable <- function(object, anovafun = "Anova", digits = 3) { DF <- ifelse(any(grepl("numDF", colnames(dat))), dat$numDF, dat$Df) - Test.Stat <- ifelse(any(grepl("F value", colnames(dat))), dat$`F-value`, dat[, 1]) + Test.Stat <- ifelse(any(grepl("F value", colnames(dat))), dat$`F value`, ifelse(any(grepl("F-value", colnames(dat))), dat$`F-value`, dat[, 1])) ret <- data.frame( Response = response,