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
62
63
64
65
66
67
68
69
70
|
library(bayesplot)
context("PPC: input validation")
source(test_path("data-for-ppc-tests.R"))
test_that("validate_y works", {
expect_identical(validate_y(y), y)
expect_identical(validate_y(as.array(y)), y)
expect_identical(validate_y(y2), y2)
names(y) <- paste0("y", 1:length(y))
expect_identical(validate_y(y), unname(y))
})
test_that("validate_y throws errors", {
expect_error(validate_y(yrep), "vector")
expect_error(validate_y(as.array(yrep)), "vector or 1D array")
expect_error(validate_y(LETTERS), "numeric")
expect_error(validate_y(c(y, NA)), "NAs not allowed")
})
test_that("validate_predictions works", {
expect_identical(validate_predictions(yrep, length(y)), yrep)
expect_equal(validate_predictions(yrep2, length(y2)), yrep2)
colnames(yrep) <- paste0("yrep", 1:ncol(yrep))
expect_equivalent(validate_predictions(yrep, length(y)), unname(yrep))
})
test_that("validate_predictions throws errors", {
expect_error(validate_predictions(as.matrix(LETTERS), length(y)), "numeric")
expect_error(validate_predictions(rbind(yrep, NA), length(y)), "NAs not allowed")
expect_error(validate_predictions(y, length(y)), "matrix")
expect_error(validate_predictions(yrep2, length(y)), "must be equal to")
expect_error(validate_predictions(yrep, length(y2)), "must be equal to ")
})
test_that("validate_group works", {
expect_identical(validate_group(1:3, n_obs = 3), as.factor(1:3))
expect_identical(validate_group(as.numeric(1:3), n_obs = 3), as.factor(1:3))
expect_identical(validate_group(group, n_obs = length(y)), group)
expect_identical(validate_group(letters[1:3], n_obs = 3), factor(letters[1:3]))
})
test_that("validate_group throws errors", {
expect_error(validate_group(array(1:3), n_obs = 3), "vector")
expect_error(validate_group(c(1,2,NA), n_obs = 3), "NAs not allowed")
expect_error(validate_group(1:4, n_obs = 3),
"must be equal to the number of observations")
})
test_that("validate_x works", {
x <- rnorm(3)
expect_identical(validate_x(x, y = 1:3), x)
expect_identical(validate_x(array(x), y = rnorm(3)), x)
expect_identical(validate_x(y = rnorm(3)), 1:3)
names(x) <- letters[1:3]
expect_identical(validate_x(x, y = 1:3), unname(x))
})
test_that("validate_x throws errors", {
expect_error(validate_x(factor(1:3), y = 1:3), "numeric")
expect_error(validate_x(c(1,2,NA), y = 1:3), "NAs not allowed")
expect_error(validate_x(1:4, y = 1:3), "must be equal to")
})
test_that("validate_pit works", {
expect_error(validate_pit("pit"), "is.numeric")
expect_error(validate_pit(cbind(1, 2)), "vector")
expect_error(validate_pit(-1), "between 0 and 1")
expect_error(validate_pit(NA), "NAs not allowed")
expect_identical(validate_pit(c(name = 0.5)), 0.5)
})
|
