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 Sat Jun 15 19:23:44 CEST 2024.