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
|
library(reformulas)
rr <- reformulas::RHSForm
expect_equal(nobars(y~1+(1|g)), y~1)
expect_equal(nobars(y~1|g), y~1)
expect_equal(nobars(y~1+(1||g)), y~1)
expect_equal(nobars(y~1||g), y~1)
expect_equal(nobars(y~1+(x:z|g)), y~1)
expect_equal(nobars(y~1+(x*z|g/h)), y~1)
expect_equal(nobars(y~(1|g)+x+(x|h)), y~x)
expect_equal(nobars(y~(1|g)+x+(x+z|h)), y~x)
expect_equal(nobars(~1+(1|g)), ~1)
expect_equal(nobars(~(1|g)), ~1)
expect_equal(nobars(rr(y~1+(1|g))), 1)
expect_equal(nobars(rr(y~(1|g))), 1)
nrt <- function(x) length(x$reTrmFormulas)
## basic splitform
nrt <- function(x) length(x$reTrmFormulas)
expect_equal(nrt(splitForm(y~(x+q))),0) ## reTrms part should be empty
sf1 <- splitForm(y~(x+q)+(1|f))
sf2 <- splitForm(y~(x+q)+us(1|f))
sf3 <- splitForm(y~(x+q)+diag(1|f))
sf4 <- splitForm(~x+y+(f|g)+cs(1|g))
expect_equal(nrt(sf1),1)
expect_equal(sf1$reTrmFormulas,list(quote(1|f)))
expect_equal(sf1,sf2)
expect_equal(sf3$reTrmClasses,"diag")
expect_equal(sf4$reTrmClasses,c("us","cs"))
## test_that("slash terms", {
sf5 <- splitForm(~x+y+(1|f/g))
sf6 <- splitForm(~x+y+(1|f/g/h))
sf7 <- splitForm(~x+y+(1|(f/g)/h))
expect_equal(sf5$reTrmClasses, rep("us",2))
expect_equal(sf6$reTrmClasses, rep("us",3))
expect_equal(sf6,sf7)
## test_that("grpvar terms", {
sf8 <- splitForm(~x+y+(1|f*g))
sf9 <- splitForm(~x+y+(1|f+g+h))
expect_equal(sf8$reTrmClasses,rep("us",3))
expect_equal(sf8$reTrmFormula,list(quote(1|f),quote(1|g),quote(1|f:g)))
expect_equal(sf9$reTrmClasses,rep("us",3))
expect_equal(sf9$reTrmFormula,list(quote(1|f),quote(1|g),quote(1|h)))
## })
## test_that("noSpecial", {
## handle parentheses in formulas: GH #174
ff <- y~1+(((us(1|f))))
expect_equal(noSpecials(ff,delete=FALSE),y~1+(1|f))
expect_equal(noSpecials(ff),y~1)
## 'naked' special - left alone: GH #261
ff2 <- y ~ us
expect_equal(noSpecials(ff2),ff2)
|
