if (requiet("lme4")) {
test_that("find_weights", {
data(mtcars)
mtcars$weight <- rnorm(nrow(mtcars), 1, 0.3)
m <- lm(mpg ~ wt + cyl + vs, data = mtcars, weights = weight)
expect_equal(find_weights(m), "weight")
})
test_that("find_weights", {
data(iris)
iris$wgt <- rnorm(nrow(iris), 1, 0.3)
m <- lmer(Sepal.Width ~ Sepal.Length + (1 | Species), data = iris, weights = wgt)
expect_equal(find_weights(m), "wgt")
})
}
Generated by dwww version 1.15 on Sun Jun 23 04:11:32 CEST 2024.