Revert "Fixed estimate of residual variance in mean model"

This reverts commit a331f90.
tidyverts · Oct 11, 2023 · 38900b5 · 38900b5 · robjhyndman · Oct 11, 2023
1 parent a331f90
commit 38900b5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/mean.R b/R/mean.R
@@ -25,7 +25,7 @@ train_mean <- function(.data, specials, ...) {
     fits <- dplyr::lag(fits)
   }
   res <- y - fits
-  sigma <- sqrt(mean(res^2, na.rm = TRUE))
+  sigma <- sd(res, na.rm = TRUE)
 
   structure(
     list(

diff --git a/tests/testthat/test-mean.R b/tests/testthat/test-mean.R
@@ -8,7 +8,7 @@ test_that("MEAN", {
   )
 
   expect_equivalent(
-    glance(fit)$sigma2, mean(scale(USAccDeaths_tbl$value, scale = FALSE)^2)
+    glance(fit)$sigma2, var(scale(USAccDeaths_tbl$value, scale = FALSE))
   )
 
   expect_identical(