Running examples in ‘parameters-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: model_parameters.aov
> ### Title: Parameters from ANOVAs
> ### Aliases: model_parameters.aov
> 
> ### ** Examples
> 
> df <- iris
> df$Sepal.Big <- ifelse(df$Sepal.Width >= 3, "Yes", "No")
> 
> model <- aov(Sepal.Length ~ Sepal.Big, data = df)
> model_parameters(model, omega_squared = "partial", eta_squared = "partial", epsilon_squared = TRUE)
Parameter | Sum_Squares |  df | Mean_Square |    F |     p | Omega_Sq (partial) | Eta_Sq (partial) | Epsilon_sq
---------------------------------------------------------------------------------------------------------------
Sepal.Big |        1.10 |   1 |        1.10 | 1.61 | 0.207 |               0.00 |             0.01 |       0.00
Residuals |      101.07 | 148 |        0.68 |      |       |                    |                  |           
> 
> model <- anova(lm(Sepal.Length ~ Sepal.Big, data = df))
> model_parameters(model)
Parameter | Sum_Squares |  df | Mean_Square |    F |     p
----------------------------------------------------------
Sepal.Big |        1.10 |   1 |        1.10 | 1.61 | 0.207
Residuals |      101.07 | 148 |        0.68 |      |      
> model_parameters(model, omega_squared = "partial", eta_squared = "partial", epsilon_squared = TRUE)
Parameter | Sum_Squares |  df | Mean_Square |    F |     p | Omega_Sq (partial) | Eta_Sq (partial) | Epsilon_sq
---------------------------------------------------------------------------------------------------------------
Sepal.Big |        1.10 |   1 |        1.10 | 1.61 | 0.207 |               0.00 |             0.01 |       0.00
Residuals |      101.07 | 148 |        0.68 |      |       |                    |                  |           
> 
> model <- aov(Sepal.Length ~ Sepal.Big + Error(Species), data = df)
> model_parameters(model)
Group   | Parameter | Sum_Squares |  df | Mean_Square |     F |      p
----------------------------------------------------------------------
Species | Sepal.Big |       28.27 |   1 |       28.27 |  0.81 | 0.534 
Species | Residuals |       34.94 |   1 |       34.94 |       |       
Within  | Sepal.Big |        4.74 |   1 |        4.74 | 20.24 | < .001
Within  | Residuals |       34.21 | 146 |        0.23 |       |       
> 
> if (require("lme4")) {
+   model <- anova(lmer(Sepal.Length ~ Sepal.Big + (1 | Species), data = df))
+   model_parameters(model)
+ }
Loading required package: lme4
Loading required package: Matrix
Error in `$<-.data.frame`(`*tmp*`, "Mean_Square", value = numeric(0)) : 
  replacement has 0 rows, data has 1
Calls: model_parameters ... model_parameters.anova -> .extract_parameters_anova -> $<- -> $<-.data.frame
Execution halted