From 927b74b018018c91a111b2d659807e020cbd0925 Mon Sep 17 00:00:00 2001 From: Daniel Date: Fri, 24 Nov 2023 11:28:56 +0100 Subject: [PATCH] fix tests for forthcoming fixest changes --- DESCRIPTION | 4 ++-- tests/testthat/test-fixest.R | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index cd36c982d..a02ddf6c7 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Type: Package Package: insight Title: Easy Access to Model Information for Various Model Objects -Version: 0.19.6.8 +Version: 0.19.6.9 Authors@R: c(person(given = "Daniel", family = "Lüdecke", @@ -113,7 +113,7 @@ Suggests: epiR, estimatr, feisr, - fixest, + fixest (>= 0.11.2), fungible, gam, gamlss, diff --git a/tests/testthat/test-fixest.R b/tests/testthat/test-fixest.R index 8048063eb..68c095dd2 100644 --- a/tests/testthat/test-fixest.R +++ b/tests/testthat/test-fixest.R @@ -1,6 +1,6 @@ skip_on_os("mac") skip_if(getRversion() < "3.6.0") -skip_if_not_installed("fixest") +skip_if_not_installed("fixest", minimum_version = "0.11.2") skip_if_not_installed("carData") skip_if_not_installed("withr") @@ -275,13 +275,13 @@ test_that("find_statistic", { test_that("get_statistic", { stat <- get_statistic(m1) out <- as.data.frame(summary(m1)$coeftable) - expect_equal(stat$Statistic, out[, "t value"], tolerance = 1e-3, ignore_attr = TRUE) + expect_equal(stat$Statistic, out[, "z value"], tolerance = 1e-3, ignore_attr = TRUE) stat <- get_statistic(m2) out <- as.data.frame(summary(m2)$coeftable) - expect_equal(stat$Statistic, out[, "t value"], tolerance = 1e-3, ignore_attr = TRUE) + expect_equal(stat$Statistic, out[, "z value"], tolerance = 1e-3, ignore_attr = TRUE) stat <- get_statistic(m3) out <- as.data.frame(summary(m3)$coeftable) - expect_equal(stat$Statistic, out[, "t value"], tolerance = 1e-3, ignore_attr = TRUE) + expect_equal(stat$Statistic, out[, "z value"], tolerance = 1e-3, ignore_attr = TRUE) }) test_that("get_predicted", {