Nothing
skip_on_cran()
test_that("lotri matrix parsing", {
expect_equal(
lotri({
et2 + et3 + et4 ~ c(
40,
0.1, 20,
0.1, 0.1, 30
)
}),
structure(c(40, 0.1, 0.1, 0.1, 20, 0.1, 0.1, 0.1, 30),
.Dim = c(3L, 3L),
.Dimnames = list(
c("et2", "et3", "et4"),
c("et2", "et3", "et4")
)
)
)
expect_equal(
lotri(list(
et2 + et3 + et4 ~ c(
40,
0.1, 20,
0.1, 0.1, 30
),
matrix(1, dimnames = list("et5", "et5"))
)),
structure(c(
40, 0.1, 0.1, 0, 0.1, 20, 0.1, 0, 0.1, 0.1, 30, 0,
0, 0, 0, 1
),
.Dim = c(4L, 4L),
.Dimnames = list(
c("et2", "et3", "et4", "et5"),
c("et2", "et3", "et4", "et5")
)
)
)
expect_equal(
lotri(list(
et2 + et3 + et4 ~ c(
40,
0.1, 20,
0.1, 0.1, 30
),
matrix(1, dimnames = list("et5", "et5"))
)),
structure(c(
40, 0.1, 0.1, 0, 0.1, 20, 0.1, 0, 0.1, 0.1, 30, 0,
0, 0, 0, 1
),
.Dim = c(4L, 4L),
.Dimnames = list(
c("et2", "et3", "et4", "et5"),
c("et2", "et3", "et4", "et5")
)
)
)
expect_equal(
lotri({
et2 + et3 + et4 ~ c(
40,
0.1, 20,
0.1, 0.1, 30
)
et5 ~ 1
}),
structure(c(
40, 0.1, 0.1, 0, 0.1, 20, 0.1, 0, 0.1, 0.1, 30, 0,
0, 0, 0, 1
),
.Dim = c(4L, 4L),
.Dimnames = list(
c("et2", "et3", "et4", "et5"),
c("et2", "et3", "et4", "et5")
)
)
)
expect_equal(
lotri(
et2 + et3 + et4 ~ c(
40,
0.1, 20,
0.1, 0.1, 30
),
et5 ~ 1
),
structure(c(
40, 0.1, 0.1, 0, 0.1, 20, 0.1, 0, 0.1, 0.1, 30, 0,
0, 0, 0, 1
),
.Dim = c(4L, 4L),
.Dimnames = list(
c("et2", "et3", "et4", "et5"),
c("et2", "et3", "et4", "et5")
)
)
)
expect_equal(
lotri(
et2 + et3 + et4 ~ c(
40,
0.1, 20,
0.1, 0.1, 30
),
list(et5 ~ 1, et6 ~ 3)
),
structure(c(
40, 0.1, 0.1, 0, 0, 0.1, 20, 0.1, 0,
0, 0.1, 0.1, 30, 0, 0, 0, 0, 0, 1, 0,
0, 0, 0, 0, 3
),
.Dim = c(5L, 5L),
.Dimnames = list(
c(
"et2", "et3", "et4",
"et5", "et6"
),
c(
"et2", "et3", "et4",
"et5", "et6"
)
)
)
)
expect_equal(
lotri(quote({
et2 + et3 + et4 ~ c(
40,
0.1, 20,
0.1, 0.1, 30
)
})),
structure(c(40, 0.1, 0.1, 0.1, 20, 0.1, 0.1, 0.1, 30),
.Dim = c(3L, 3L),
.Dimnames = list(
c("et2", "et3", "et4"),
c("et2", "et3", "et4")
)
)
)
.mat <- lotri({
et2 + et3 + et4 ~ c(
40,
0.1, 20,
0.1, 0.1, 30
)
})
## Test for NSE issues
expect_equal(.mat, lotri(.mat))
## Test for NULL
expect_equal(NULL, lotri(NULL))
expect_equal(
lotri(eta.Cl ~ 0.4^2),
structure(0.16,
.Dim = c(1L, 1L),
.Dimnames = list("eta.Cl", "eta.Cl")
)
)
## Parsing errors
expect_error(lotri(~ c(40))) #nolint
expect_error(lotri(~ 40))
expect_error(lotri(a ~ c(3, 1, 3)))
expect_error(lotri(a ~ c(3, 1)))
expect_equal(
lotri({
matrix(3, dimnames = list("a", "a"))
}),
structure(3, .Dim = c(1L, 1L), .Dimnames = list("a", "a"))
)
expect_error(expect_message(
lotri({
matrix(3, dimnames = list("a", "a"))
matrix(3, dimnames = list("b", "b"))
})
))
expect_equal(
lotri(matrix(3, dimnames = list("a", "a"))),
structure(3, .Dim = c(1L, 1L), .Dimnames = list("a", "a"))
)
expect_error(lotri(quote(matrix(3, dimnames = list("a", "a")))))
expect_error(lotri(lotri(a ~ paste(1))))
expect_equal(
lotri({
et2 + et3 + et4 ~ c(
40,
0.1, 20,
0.1, 0.1, 30
) | id
}),
list(id = structure(c(
40, 0.1, 0.1, 0.1, 20, 0.1,
0.1, 0.1, 30
),
.Dim = c(3L, 3L),
.Dimnames = list(
c("et2", "et3", "et4"),
c("et2", "et3", "et4")
)
))
)
expect_equal(
lotri({
et1 ~ c(40) | id }), # nolint
list(id = structure(40,
.Dim = c(1L, 1L),
.Dimnames = list(
"et1",
"et1"
)
))
)
expect_equal(
lotri({
et1 ~ 40 | id
}),
list(id = structure(40,
.Dim = c(1L, 1L),
.Dimnames = list(
"et1",
"et1"
)
))
)
expect_equal(
lotri({
eta.Cl ~ 0.4^2 | id
}),
list(id = structure(0.16,
.Dim = c(1L, 1L),
.Dimnames = list("eta.Cl", "eta.Cl")
))
)
expect_equal(
lotri(matrix(1, dimnames = list("et5", "et5")) | id),
list(id = structure(1,
.Dim = c(1L, 1L),
.Dimnames = list("et5", "et5")
))
)
expect_equal(
lotri(
matrix(1, dimnames = list("et5", "et5")) | id,
matrix(1, dimnames = list("et1", "et1")) | id
),
list(id = structure(c(1, 0, 0, 1),
.Dim = c(2L, 2L),
.Dimnames = list(
c("et5", "et1"),
c("et5", "et1")
)
))
)
expect_equal(
lotri(
matrix(1, dimnames = list("et5", "et5")) | id,
matrix(1, dimnames = list("et2", "et2")),
matrix(1, dimnames = list("et1", "et1")) | id
),
list(
id = structure(c(1, 0, 0, 1),
.Dim = c(2L, 2L),
.Dimnames = list(
c("et5", "et1"),
c("et5", "et1")
)
),
structure(1,
.Dim = c(1L, 1L),
.Dimnames = list("et2", "et2")
)
)
)
expect_equal(
lotri(
matrix(1, dimnames = list("et5", "et5")) | id1,
matrix(1, dimnames = list("et2", "et2")) | id2,
matrix(1, dimnames = list("et1", "et1")) | id3
),
list(id1 = structure(1, .Dim = c(1L, 1L), .Dimnames = list(
"et5",
"et5"
)), id2 = structure(1, .Dim = c(1L, 1L), .Dimnames = list(
"et2", "et2"
)), id3 = structure(1, .Dim = c(1L, 1L), .Dimnames = list(
"et1", "et1"
)))
)
expect_equal(
lotri(
et2 + et3 + et4 ~ c(
40,
0.1, 20,
0.1, 0.1, 30
),
list(et5 ~ 1, et6 ~ 3) | id
),
list(structure(c(40, 0.1, 0.1, 0.1, 20, 0.1, 0.1, 0.1, 30),
.Dim = c(3L, 3L),
.Dimnames = list(
c("et2", "et3", "et4"),
c("et2", "et3", "et4")
)
),
id = structure(c(1, 0, 0, 3),
.Dim = c(2L, 2L),
.Dimnames = list(
c("et5", "et6"),
c("et5", "et6")
)
)
)
)
expect_equal(
lotri(list(et5 ~ 1, et6 ~ 3) | id),
list(id = structure(c(1, 0, 0, 3),
.Dim = c(2L, 2L),
.Dimnames = list(
c("et5", "et6"),
c("et5", "et6")
)
))
)
expect_equal(
lotri(
et5 ~ 1 | id1,
et2 + et3 ~ c(
1,
2, 3
) | id2,
et1 ~ 3 | id3
),
list(
id1 = structure(1,
.Dim = c(1L, 1L),
.Dimnames = list("et5", "et5")
),
id2 = structure(c(1, 2, 2, 3),
.Dim = c(2L, 2L),
.Dimnames = list(
c("et2", "et3"),
c("et2", "et3")
)
),
id3 = structure(3,
.Dim = c(1L, 1L),
.Dimnames = list("et1", "et1")
)
)
)
expect_equal(
lotri(
et5 ~ 1 | id1,
et2 + et3 ~ c(
1,
2, 3
),
et1 ~ 3 | id3
),
list(
id1 = structure(1,
.Dim = c(1L, 1L),
.Dimnames = list("et5", "et5")
),
structure(c(1, 2, 2, 3),
.Dim = c(2L, 2L),
.Dimnames = list(
c("et2", "et3"),
c("et2", "et3")
)
),
id3 = structure(3,
.Dim = c(1L, 1L),
.Dimnames = list("et1", "et1")
)
)
)
expect_equal(
lotri(
et5 ~ 1 | id1,
et2 + et3 ~ c(
1,
2, 3
) | id2,
et1 ~ 3
),
list(
id1 = structure(1,
.Dim = c(1L, 1L),
.Dimnames = list("et5", "et5")
),
id2 = structure(c(1, 2, 2, 3),
.Dim = c(2L, 2L),
.Dimnames = list(
c("et2", "et3"),
c("et2", "et3")
)
),
structure(3,
.Dim = c(1L, 1L),
.Dimnames = list("et1", "et1")
)
)
)
expect_equal(
lotri(
et5 ~ 1 | id1,
et2 + et3 ~ c(
1,
2, 3
),
et1 ~ 3 | id1
),
list(
id1 = structure(c(1, 0, 0, 3),
.Dim = c(2L, 2L),
.Dimnames = list(
c("et5", "et1"),
c("et5", "et1")
)
),
structure(c(1, 2, 2, 3),
.Dim = c(2L, 2L),
.Dimnames = list(
c("et2", "et3"),
c("et2", "et3")
)
)
)
)
expect_equal(
lotri(
et5 ~ 1,
et2 + et3 ~ c(
1,
2, 3
),
et1 ~ 3 | id1
),
list(structure(c(1, 0, 0, 0, 1, 2, 0, 2, 3),
.Dim = c(3L, 3L),
.Dimnames = list(
c("et5", "et2", "et3"),
c("et5", "et2", "et3")
)
),
id1 = structure(3,
.Dim = c(1L, 1L),
.Dimnames = list("et1", "et1")
)
)
)
expect_error(
lotri(et1 ~ c(1) | id + matt)) # nolint
expect_error(lotri(et1 ~ 1 | id + matt))
tmp <- lotri(et1 ~ 1 | id(df = 3), et2 ~ 3 | id2)
expect_equal(tmp$df, list(id = 3))
expect_equal(tmp$matt, NULL)
expect_equal(tmp$id, structure(1,
.Dim = c(1L, 1L),
.Dimnames = list("et1", "et1")
))
expect_equal(tmp$.names, "df")
expect_snapshot_output(print(tmp))
expect_snapshot_output(str(tmp))
expect_equal(.DollarNames(tmp, ""), c("id", "id2", ".allNames", ".bounds", ".names", ".list", ".maxNu", "df"))
expect_equal(.DollarNames(tmp, "i"), c("id", "id2", ".list"))
expect_error(lotri(et1 ~ 1 | id(df = 3), et2 ~ 3 | id(df = 4)))
tmp2 <- lotri(et1 ~ 1 | id(df = 3), et2 ~ 3 | id(df2 = 4))
expect_equal(tmp2$df, list(id = 3))
expect_equal(tmp2$df2, list(id = 4))
tmp2 <- lotri(et1 ~ 1 | id(lower = 3))
expect_equal(tmp2$lower, list(id = c(et1 = 3)))
tmp2 <- lotri(et1 + et2 ~ c(1, 2, 3) | id(lower = 3))
expect_equal(tmp2$lower, list(id = c(et1 = 3, et2 = 3)))
expect_error(lotri(et1 + et2 ~ c(1, 2, 3) | id(lower = c(2, 3))))
expect_error(lotri(et1 + et2 ~ c(1, 2, 3) | id(lower = c(et3 = 4))))
expect_error(lotri(et1 + et2 ~ c(1, 2, 3) | id(upper = c(2, 3))))
expect_error(lotri(et1 + et2 ~ c(1, 2, 3) | id(upper = c(et3 = 4))))
tmp2 <- lotri(
et1 + et2 ~ c(
1,
2, 3
) | id(lower = 3),
et3 ~ 3 | id(lower = 4)
)
expect_equal(tmp2$lower, list(id = c(et1 = 3, et2 = 3, et3 = 4)))
tmp2 <- lotri(
et1 + et2 ~ c(
1,
2, 3
) | id(lower = 3),
et3 ~ 3 | id
)
expect_equal(tmp2$lower, list(id = c(et1 = 3, et2 = 3, et3 = -Inf)))
tmp2 <- lotri(
et1 + et2 ~ c(
1,
2, 3
) | id(upper = 3),
et3 ~ 3 | id
)
expect_equal(tmp2$upper, list(id = c(et1 = 3, et2 = 3, et3 = Inf)))
expect_equal(tmp2$lower, list(id = c(et1 = -Inf, et2 = -Inf, et3 = -Inf)))
tmp2 <- lotri(
et1 + et2 ~ c(
1,
2, 3
) | id(lower = c(et2 = 3)),
et3 ~ 3 | id
)
expect_equal(
tmp2$lower,
list(id = c(et1 = -Inf, et2 = 3, et3 = -Inf))
)
tmp2 <- lotri(
et1 + et2 ~ c(
1,
2, 3
) | id(upper = c(et2 = 3)),
et3 ~ 3 | id
)
expect_equal(
tmp2$upper,
list(id = c(et1 = Inf, et2 = 3, et3 = Inf))
)
tmp2 <- lotri(
eta.Cl ~ 0.1,
eta.Ka ~ 0.2,
inv.Cl ~ 0.3,
inv.Ka ~ 0.4,
iov.Ka ~ 0.5,
iov.Cl ~ 0.6 | occ(lower = 3)
)
expect_equal(
tmp2,
structure(list(structure(c(
0.1, 0, 0, 0, 0, 0, 0.2, 0,
0, 0, 0, 0, 0.3, 0, 0, 0, 0,
0, 0.4, 0, 0, 0, 0, 0, 0.5
),
.Dim = c(5L, 5L),
.Dimnames = list(
c(
"eta.Cl",
"eta.Ka",
"inv.Cl",
"inv.Ka",
"iov.Ka"
),
c(
"eta.Cl",
"eta.Ka",
"inv.Cl",
"inv.Ka",
"iov.Ka"
)
)
),
occ = structure(0.6,
.Dim = c(1L, 1L),
.Dimnames = list(
"iov.Cl",
"iov.Cl"
)
)
),
lotri = list(occ = list(lower = c(iov.Cl = 3))), class = "lotri"
)
)
tmp2 <- lotri(
inv.Ka ~ 0.4,
iov.Ka ~ 0.5 | occ,
iov.Cl ~ 0.6 | occ(lower = 3)
)
expect_equal(tmp2$lower$occ, c(iov.Ka = -Inf, iov.Cl = 3))
tmp2 <- lotri(
inv.Ka ~ 0.4,
iov.Ka ~ 0.5 | occ(lower = 3),
iov.Cl ~ 0.6 | occ
)
expect_equal(tmp2$lower$occ, c(iov.Ka = 3, iov.Cl = -Inf))
tmp2 <- lotri(
eta.Cl ~ 0.1,
eta.Ka ~ 0.2,
inv.Cl ~ 0.3,
inv.Ka ~ 0.4 | occ,
iov.Ka ~ 0.5,
iov.Cl ~ 0.6 | occ(lower = 3)
)
expect_equal(tmp2$lower$occ, c(inv.Ka = -Inf, iov.Cl = 3))
tmp2 <- lotri(
eta.Cl ~ 0.1,
eta.Ka ~ 0.2,
inv.Cl ~ 0.3,
inv.Ka ~ 0.4 | occ(lower = 3),
iov.Ka ~ 0.5,
iov.Cl ~ 0.6 | occ
)
expect_equal(tmp2$lower$occ, c(inv.Ka = 3, iov.Cl = -Inf))
tmp2 <- lotri(lotri(
iov.Ka ~ 0.5,
iov.Cl ~ 0.6
) | occ(lower = 3))
expect_equal(tmp2$lower, list(occ = c(iov.Ka = 3, iov.Cl = 3)))
tmp2 <- lotri(
lotri(
iov.Ka ~ 0.5,
iov.Cl ~ 0.6
) | iov(lower = 3),
lotri(
occ.Ka ~ 0.5,
occ.Cl ~ 0.6
) | occ(lower = 4)
)
expect_equal(
tmp2$lower,
list(
iov = c(iov.Ka = 3, iov.Cl = 3),
occ = c(occ.Ka = 4, occ.Cl = 4)
)
)
tmp2 <- lotri(
lotri(
iov.Ka ~ 0.5,
iov.Cl ~ 0.6
) | iov(lower = 3),
lotri(
occ.Ka ~ 0.5,
occ.Cl ~ 0.6
) | iov(lower = 4)
)
expect_equal(
tmp2$lower,
list(iov = c(
iov.Ka = 3, iov.Cl = 3,
occ.Ka = 4, occ.Cl = 4
))
)
tmp2 <- lotri(
lotri(
eta.Cl ~ 0.1,
eta.Ka ~ 0.2
),
lotri(
inv.Ka ~ 0.3,
inv.Cl ~ 0.4
) | inv(lower = 2),
lotri(
iov.Ka ~ 0.5,
iov.Cl ~ 0.6
) | occ(lower = 3)
)
expect_equal(
tmp2$lower,
list(c(eta.Cl = -Inf, eta.Ka = -Inf),
inv = c(inv.Ka = 2, inv.Cl = 2),
occ = c(iov.Ka = 3, iov.Cl = 3)
)
)
tmp2 <- lotri(lotri(
iov.Ka ~ 0.5,
iov.Cl ~ 0.6
) | occ)
expect_equal(
tmp2,
list(occ = structure(c(0.5, 0, 0, 0.6),
.Dim = c(2L, 2L),
.Dimnames = list(
c(
"iov.Ka",
"iov.Cl"
),
c(
"iov.Ka",
"iov.Cl"
)
)
))
)
tmp2 <- lotri(
lotri(
iov.Ka ~ 0.5,
iov.Cl ~ 0.6
) | iov,
lotri(
occ.Ka ~ 0.5,
occ.Cl ~ 0.6
) | occ(lower = 4)
)
expect_equal(
tmp2,
structure(list(iov = structure(c(0.5, 0, 0, 0.6), .Dim = c(
2L,
2L
), .Dimnames = list(c("iov.Ka", "iov.Cl"), c("iov.Ka", "iov.Cl"))), occ = structure(c(0.5, 0, 0, 0.6), .Dim = c(2L, 2L), .Dimnames = list(
c("occ.Ka", "occ.Cl"), c("occ.Ka", "occ.Cl")
))), lotri = list(
occ = list(lower = c(occ.Ka = 4, occ.Cl = 4))
), class = "lotri")
)
tmp2 <- lotri(
lotri(
iov.Ka ~ 0.5,
iov.Cl ~ 0.6
) | iov(lower = 3),
lotri(
occ.Ka ~ 0.5,
occ.Cl ~ 0.6
) | occ
)
expect_equal(
tmp2,
structure(list(iov = structure(c(0.5, 0, 0, 0.6), .Dim = c(
2L,
2L
), .Dimnames = list(c("iov.Ka", "iov.Cl"), c("iov.Ka", "iov.Cl"))), occ = structure(c(0.5, 0, 0, 0.6), .Dim = c(2L, 2L), .Dimnames = list(
c("occ.Ka", "occ.Cl"), c("occ.Ka", "occ.Cl")
))), lotri = list(
iov = list(lower = c(iov.Ka = 3, iov.Cl = 3))
), class = "lotri")
)
tmp2 <- lotri(
lotri(
iov.Ka ~ 0.5,
iov.Cl ~ 0.6
) | iov,
lotri(
occ.Ka ~ 0.5,
occ.Cl ~ 0.6
) | occ
)
expect_equal(
tmp2,
list(iov = structure(c(0.5, 0, 0, 0.6), .Dim = c(2L, 2L), .Dimnames = list(
c("iov.Ka", "iov.Cl"), c("iov.Ka", "iov.Cl")
)), occ = structure(c(
0.5,
0, 0, 0.6
), .Dim = c(2L, 2L), .Dimnames = list(c("occ.Ka", "occ.Cl"), c("occ.Ka", "occ.Cl"))))
)
tmp2 <- lotri(
lotri(
iov.Ka ~ 0.5,
iov.Cl ~ 0.6
),
lotri(
occ.Ka ~ 0.5,
occ.Cl ~ 0.6
) | occ(lower = 4)
)
expect_equal(tmp2, structure(list(structure(c(0.5, 0, 0, 0.6), .Dim = c(2L, 2L), .Dimnames = list(
c("iov.Ka", "iov.Cl"), c("iov.Ka", "iov.Cl")
)), occ = structure(c(
0.5,
0, 0, 0.6
), .Dim = c(2L, 2L), .Dimnames = list(c("occ.Ka", "occ.Cl"), c("occ.Ka", "occ.Cl")))), lotri = list(occ = list(lower = c(
occ.Ka = 4,
occ.Cl = 4
))), class = "lotri"))
tmp2 <- lotri(
lotri(
iov.Ka ~ 0.5,
iov.Cl ~ 0.6
) | iov(lower = 3),
lotri(
occ.Ka ~ 0.5,
occ.Cl ~ 0.6
)
)
expect_equal(
tmp2,
structure(list(iov = structure(c(0.5, 0, 0, 0.6), .Dim = c(
2L,
2L
), .Dimnames = list(c("iov.Ka", "iov.Cl"), c("iov.Ka", "iov.Cl"))), 0.5, 0, 0, 0.6), lotri = list(iov = list(lower = c(
iov.Ka = 3,
iov.Cl = 3
))), class = "lotri")
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.