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
|
stopifnot(require(mi))
x <- rnorm(10)
x[1] <- NA
y <- missing_variable(x, type = "continuous")
y <- missing_variable(x, type = "irrelevant")
x <- rep(1, 10)
y <- missing_variable(x, type = "fixed")
x <- rep(1:5, each = 2)
y <- missing_variable(x, type = "group")
x[1] <- NA
y <- missing_variable(x, type = "unordered-categorical")
y <- missing_variable(x, type = "ordered-categorical")
y <- missing_variable(x, type = "interval")
x <- rbinom(10, size = 1, prob = 0.5)
x[1] <- NA
y <- missing_variable(x, type = "binary")
y <- missing_variable(x, type = "grouped-binary", strata = rep(c("A", "B"), each = 5))
x <- runif(10)
x[1] <- NA
y <- missing_variable(x, type = "bounded-continuous", lower = 0, upper = 1)
y <- missing_variable(x, type = "positive-continuous")
x[which.min(x)] <- 0
y <- missing_variable(x, type = "nonnegative-continuous")
x <- rpois(10, lambda = 5)
x[1] <- NA
y <- missing_variable(x, type = "count")
|
