Skip to content

Commit 2c61da1

Browse files
strengejackestrengejacke
committed
skip_on_cran first
1 parent a403e5b commit 2c61da1

13 files changed

+2086
-1186
lines changed

‎tests/testthat/test-glmmTMB.R‎

Lines changed: 1125 additions & 772 deletions
Large diffs are not rendered by default.

‎tests/testthat/test-model_parameters.bracl.R‎

Lines changed: 26 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -1,14 +1,18 @@
1+
skip_on_cran()
2+
13
skip_if_not_installed("brglm2")
24
skip_if_not_installed("faraway")
35
skip_if_not(packageVersion("insight") > "0.19.1")
46

5-
skip_on_cran()
6-
77
test_that("model_parameters.bracl", {
88
data("cns", package = "faraway")
9-
cns2 <- reshape(cns,
10-
direction = "long", timevar = "Type",
11-
times = names(cns)[3:5], varying = 3:5, v.names = "Freq"
9+
cns2 <- reshape(
10+
cns,
11+
direction = "long",
12+
timevar = "Type",
13+
times = names(cns)[3:5],
14+
varying = 3:5,
15+
v.names = "Freq"
1216
)[, 3:6]
1317
cns2$Type <- factor(cns2$Type, levels = unique(cns2$Type))
1418

@@ -18,21 +22,30 @@ test_that("model_parameters.bracl", {
1822
expect_named(
1923
mpbracl,
2024
c(
21-
"Parameter", "Coefficient", "SE", "CI", "CI_low", "CI_high",
22-
"z", "df_error", "p", "Response"
25+
"Parameter",
26+
"Coefficient",
27+
"SE",
28+
"CI",
29+
"CI_low",
30+
"CI_high",
31+
"z",
32+
"df_error",
33+
"p",
34+
"Response"
2335
)
2436
)
2537
expect_identical(
2638
mpbracl$Parameter,
2739
c(
28-
"An:(Intercept)", "Sp:(Intercept)", "An:Water", "Sp:Water",
29-
"An:WorkNonManual", "Sp:WorkNonManual"
40+
"An:(Intercept)",
41+
"Sp:(Intercept)",
42+
"An:Water",
43+
"Sp:Water",
44+
"An:WorkNonManual",
45+
"Sp:WorkNonManual"
3046
)
3147
)
32-
expect_identical(
33-
mpbracl$Response,
34-
c("An", "Sp", "An", "Sp", "An", "Sp")
35-
)
48+
expect_identical(mpbracl$Response, c("An", "Sp", "An", "Sp", "An", "Sp"))
3649
expect_equal(
3750
mpbracl$Coefficient,
3851
c(-0.37392, 1.49063, 0.00129, -0.00349, -0.11292, 0.36384),

‎tests/testthat/test-model_parameters.fixest_multi.R‎

Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,13 +1,15 @@
1-
skip_if_not_installed("fixest")
2-
31
skip_on_cran()
42

3+
skip_if_not_installed("fixest")
54

65
set.seed(123)
76
iris$x <- rnorm(150)
87

98
test_that("model_parameters.fixest_multi", {
10-
mod <- fixest::feols(c(Petal.Width, Sepal.Width) ~ x + csw0(Petal.Length, Sepal.Length) | Species, iris)
9+
mod <- fixest::feols(
10+
c(Petal.Width, Sepal.Width) ~ x + csw0(Petal.Length, Sepal.Length) | Species,
11+
iris
12+
)
1113
expect_snapshot(print(model_parameters(mod)))
1214
expect_snapshot(print(ci(mod)))
1315
})

‎tests/testthat/test-model_parameters.mclogit.R‎

Lines changed: 26 additions & 35 deletions
Original file line numberDiff line numberDiff line change
@@ -1,42 +1,33 @@
1+
skip_on_cran()
2+
13
skip_if_not_installed("mclogit")
24
skip_if_not_installed("withr")
35
skip_if_not(packageVersion("insight") > "0.19.1")
46

5-
skip_on_cran()
6-
7-
withr::with_options(
8-
list(parameters_exponentiate = FALSE),
9-
{
10-
data(Transport, package = "mclogit")
11-
invisible(capture.output({
12-
m1 <- mclogit::mclogit(
13-
cbind(resp, suburb) ~ distance + cost,
14-
data = Transport
15-
)
16-
}))
7+
withr::with_options(list(parameters_exponentiate = FALSE), {
8+
data(Transport, package = "mclogit")
9+
invisible(capture.output({
10+
m1 <- mclogit::mclogit(cbind(resp, suburb) ~ distance + cost, data = Transport)
11+
}))
1712

18-
data(housing, package = "MASS")
19-
invisible(capture.output({
20-
m2 <- mclogit::mblogit(Sat ~ Infl + Type + Cont,
21-
weights = Freq,
22-
data = housing
23-
)
24-
}))
13+
data(housing, package = "MASS")
14+
invisible(capture.output({
15+
m2 <- mclogit::mblogit(Sat ~ Infl + Type + Cont, weights = Freq, data = housing)
16+
}))
2517

26-
test_that("model_parameters.mclogit", {
27-
params <- model_parameters(m1)
28-
expect_snapshot(params)
29-
})
30-
test_that("model_parameters.mblogit", {
31-
params <- model_parameters(m2)
32-
expect_snapshot(params)
33-
})
18+
test_that("model_parameters.mclogit", {
19+
params <- model_parameters(m1)
20+
expect_snapshot(params)
21+
})
22+
test_that("model_parameters.mblogit", {
23+
params <- model_parameters(m2)
24+
expect_snapshot(params)
25+
})
3426

35-
skip_on_os(c("mac", "linux"))
36-
test_that("simulate_parameters.mblogit", {
37-
set.seed(1234)
38-
params <- simulate_parameters(m2)
39-
expect_snapshot(params)
40-
})
41-
}
42-
)
27+
skip_on_os(c("mac", "linux"))
28+
test_that("simulate_parameters.mblogit", {
29+
set.seed(1234)
30+
params <- simulate_parameters(m2)
31+
expect_snapshot(params)
32+
})
33+
})

‎tests/testthat/test-model_parameters.mediate.R‎

Lines changed: 72 additions & 19 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,4 @@
1+
skip_on_cran()
12
skip_if_not_installed("mediation")
23
skip_if_not_installed("MASS")
34

@@ -10,20 +11,33 @@ m1 <- mediation::mediate(b, c, sims = 50, treat = "treat", mediator = "job_seek"
1011
b2 <- lm(job_seek ~ educ + sex, data = jobs)
1112
c2 <- lm(depress2 ~ educ + job_seek + sex, data = jobs)
1213
set.seed(1234)
13-
m2 <- mediation::mediate(b2, c2,
14-
treat = "educ", mediator = "job_seek", sims = 50,
15-
control.value = "gradwk", treat.value = "somcol"
14+
m2 <- mediation::mediate(
15+
b2,
16+
c2,
17+
treat = "educ",
18+
mediator = "job_seek",
19+
sims = 50,
20+
control.value = "gradwk",
21+
treat.value = "somcol"
1622
)
1723

1824
test_that("model_parameters.mediate-1", {
1925
params <- model_parameters(m1)
20-
expect_equal(params$Estimate, c(-0.01488, -0.04753, -0.06242, 0.16635), tolerance = 1e-2)
26+
expect_equal(
27+
params$Estimate,
28+
c(-0.01488, -0.04753, -0.06242, 0.16635),
29+
tolerance = 1e-2
30+
)
2131
expect_equal(params$Parameter, c("ACME", "ADE", "Total Effect", "Prop. Mediated"))
2232
})
2333

2434
test_that("model_parameters.mediate-2", {
2535
params <- model_parameters(m2)
26-
expect_equal(params$Estimate, c(0.02484, -0.05793, -0.03309, -0.27914), tolerance = 1e-2)
36+
expect_equal(
37+
params$Estimate,
38+
c(0.02484, -0.05793, -0.03309, -0.27914),
39+
tolerance = 1e-2
40+
)
2741
expect_equal(params$Parameter, c("ACME", "ADE", "Total Effect", "Prop. Mediated"))
2842
})
2943

@@ -48,21 +62,60 @@ test_that("model_parameters.mediate-3", {
4862
family = binomial(link = "probit")
4963
)
5064
set.seed(1234)
51-
m3 <- mediation::mediate(b.ord, d.bin, sims = 50, treat = "treat", mediator = "job_disc")
65+
m3 <- mediation::mediate(
66+
b.ord,
67+
d.bin,
68+
sims = 50,
69+
treat = "treat",
70+
mediator = "job_disc"
71+
)
5272

5373
params <- model_parameters(m3)
5474

55-
expect_equal(params$Estimate, c(
56-
0.00216, 0.00231, 0.0486, 0.04875, 0.05091, 0.03981, 0.04829,
57-
0.00223, 0.04868, 0.04405
58-
), tolerance = 1e-2)
59-
expect_equal(params$Parameter, c(
60-
"ACME (control)", "ACME (treated)", "ADE (control)", "ADE (treated)",
61-
"Total Effect", "Prop. Mediated (control)", "Prop. Mediated (treated)",
62-
"ACME (average)", "ADE (average)", "Prop. Mediated (average)"
63-
))
64-
expect_equal(params$Component, c(
65-
"control", "treated", "control", "treated", "Total Effect",
66-
"control", "treated", "average", "average", "average"
67-
))
75+
expect_equal(
76+
params$Estimate,
77+
c(
78+
0.00216,
79+
0.00231,
80+
0.0486,
81+
0.04875,
82+
0.05091,
83+
0.03981,
84+
0.04829,
85+
0.00223,
86+
0.04868,
87+
0.04405
88+
),
89+
tolerance = 1e-2
90+
)
91+
expect_equal(
92+
params$Parameter,
93+
c(
94+
"ACME (control)",
95+
"ACME (treated)",
96+
"ADE (control)",
97+
"ADE (treated)",
98+
"Total Effect",
99+
"Prop. Mediated (control)",
100+
"Prop. Mediated (treated)",
101+
"ACME (average)",
102+
"ADE (average)",
103+
"Prop. Mediated (average)"
104+
)
105+
)
106+
expect_equal(
107+
params$Component,
108+
c(
109+
"control",
110+
"treated",
111+
"control",
112+
"treated",
113+
"Total Effect",
114+
"control",
115+
"treated",
116+
"average",
117+
"average",
118+
"average"
119+
)
120+
)
68121
})

0 commit comments

Comments
 (0)