diff --git a/tests/testthat/test-binned_residuals.R b/tests/testthat/test-binned_residuals.R index 4499441bd..62958b519 100644 --- a/tests/testthat/test-binned_residuals.R +++ b/tests/testthat/test-binned_residuals.R @@ -65,5 +65,3 @@ test_that("binned_residuals, terms", { tolerance = 1e-4 ) }) - -dput(round(result$ybar, 5)) diff --git a/tests/testthat/test-check_autocorrelation.R b/tests/testthat/test-check_autocorrelation.R new file mode 100644 index 000000000..d33a97279 --- /dev/null +++ b/tests/testthat/test-check_autocorrelation.R @@ -0,0 +1,6 @@ +test_that("check_autocorrelation", { + data(mtcars) + m <- lm(mpg ~ wt + cyl + gear + disp, data = mtcars) + out <- check_autocorrelation(m) + expect_equal(out, 0.278, ignor_attr = TRUE, tolerance = 1e-3) +})