fix #556

[mattansb]

Fixes #556

[strengejacke]

Shouldn't these two elements have the same numbers?

mod1 <- aov(yield ~ N * P * K + Error(block), npk)

out1 <- parameters::model_parameters(
  mod1,
  eta_squared = "partial",
  ci = 0.95,
  table_wide = FALSE
)

out2 <- parameters::model_parameters(
  mod1,
  eta_squared = "partial",
  ci = 0.95,
  table_wide = TRUE
)

out1$Mean_Square[out1$Parameter == "Residuals"]
#> [1] 76.57333 15.44056
out2$Mean_Square_Error
#> [1] 306.2933 185.2867 185.2867 185.2867 185.2867 185.2867 185.2867

^{Created on 2025-01-08 with reprex v2.1.1}

[mattansb]

Oops, you're right! I'll take a look.