1## examples for eval lookup
2testthat::skip_on_cran()
3
4if (require(car)) {
5  test_that("infIndexPlot env lookup OK", {
6    fm1 <- lmer(Reaction ~ Days + (Days | Subject), sleepstudy)
7    ## silly test; the point is to see if this errors out with
8    ## Error in as.list.environment(X[[i]], ...) :
9    ## promise already under evaluation: recursive default argument reference or earlier problems?
10    ##   Calls: infIndexPlot -> influence -> influence.merMod -> lapply -> FUN
11    expect_equal(car::infIndexPlot(influence(fm1, "Subject")), NULL)
12  })
13}
14
15if (require(rr2)) {
16  test_that("rr2 env lookup OK", {
17    ## Error under alternate eval lookup
18    ##     Error: bad 'data': object 'd' not found
19
20    set.seed(123456)
21    p1 <- 10; nsample <- 20; n <- p1 * nsample
22    d <- data.frame(x1 = rnorm(n = n),
23                    x2 = rnorm(n = n),
24                    u1 = rep(1:p1, each = nsample),
25                    u2 = rep(1:p1, times = nsample))
26    d$u1 <- as.factor(d$u1); d$u2 <- as.factor(d$u2)
27
28    ## LMM: y with random intercept
29    b1 <- 1; b2 <- -1; sd1 <- 1.5
30    d$y_re_intercept <- b1 * d$x1 + b2 * d$x2 +
31      rep(rnorm(n = p1, sd = sd1), each = nsample) +  # random intercept u1
32      rep(rnorm(n = p1, sd = sd1), times = nsample) + # random intercept u2
33      rnorm(n = n)
34
35    z.f2 <- lme4::lmer(y_re_intercept ~ x1 + x2 + (1 | u1) + (1 | u2), data = d, REML = T)
36    ## NOTE, fails to produce warnings on second run of devtools::test()
37    ## (possible interference from lmerTest methods being loaded ...?)
38    expect_warning(R2(z.f2), "mod updated with REML = F")
39})
40}
41
42
43if (suppressWarnings(require(semEff))) {
44  ## suppress warning about 'cov2cor' import replacement
45  test_that("semEff env lookup OK", {
46    ##   Error in as.list.environment(X[[i]], ...) :
47    ##     promise already under evaluation: recursive default argument reference or earlier problems?
48    ##   Calls: VIF ... update.merMod -> do.call -> lapply -> FUN -> as.list.environment
49  m <- Shipley.Growth[[3]]
50  expect_equal(VIF(m),
51               c(Date = 6.06283840168881,
52                 DD = 6.07741017455859, lat = 1.01215136160858)
53               )
54  })
55}
56