if (requiet("lme4")) { data(mtcars) m1 <- lmer(mpg ~ am + (1 | cyl), data = mtcars) m2 <- lm(mpg ~ am, data = mtcars) test_that("get_weights", { expect_null(get_weights(m1)) expect_null(get_weights(m2)) }) set.seed(123) mtcars$w <- abs(rnorm(nrow(mtcars), sd = 0.5)) m1 <- lmer(mpg ~ am + (1 | cyl), data = mtcars, weights = w) m2 <- lm(mpg ~ am, data = mtcars, weights = w) test_that("get_weights", { expect_equal( get_weights(m1), mtcars$w, tolerance = 1e-2 ) expect_equal( get_weights(m2), mtcars$w, tolerance = 1e-2 ) }) }
Generated by dwww version 1.15 on Sat Jun 15 21:08:57 CEST 2024.