1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
skip_if_not_installed("WRS2")
data(viagra, package = "WRS2")
data(WineTasting, package = "WRS2")
data(spider, package = "WRS2")
# model_parameters.t1way ---------------------------------------------------
test_that("model_parameters.t1way", {
set.seed(123)
df_b <- model_parameters(WRS2::t1way(libido ~ dose, data = viagra))
set.seed(123)
df_w <- model_parameters(WRS2::rmanova(WineTasting$Taste, WineTasting$Wine, WineTasting$Taster))
})
# model_parameters.yuen ---------------------------------------------------
test_that("model_parameters.yuen", {
set.seed(123)
df_b <- model_parameters(WRS2::yuen(Anxiety ~ Group, data = spider))
before <- c(190, 210, 300, 240, 280, 170, 280, 250, 240, 220)
after <- c(210, 210, 340, 190, 260, 180, 200, 220, 230, 200)
set.seed(123)
df_w <- model_parameters(WRS2::yuend(before, after))
})
# model_parameters.mcp and robtab ---------------------------------------
test_that("model_parameters.mcp and robtab", {
set.seed(123)
df_b <- model_parameters(WRS2::lincon(libido ~ dose, data = viagra))
set.seed(123)
df_w <- model_parameters(WRS2::rmmcp(WineTasting$Taste, WineTasting$Wine, WineTasting$Taster))
set.seed(123)
df <- model_parameters(WRS2::discmcp(libido ~ dose, viagra, nboot = 100))
})
# model_parameters.akp.effect -----------------------------------------------
test_that("model_parameters.AKP", {
set.seed(123)
mod <- WRS2::akp.effect(
formula = wt ~ am,
data = mtcars,
EQVAR = FALSE
)
})
# model_parameters.onesampb ---------------------------------------------------
test_that("model_parameters.onesampb", {
set.seed(123)
x <- rnorm(30)
set.seed(123)
mod <- WRS2::onesampb(x, nboot = 100)
})
|
