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
|
context("resample_subsample")
test_that("subsampling instance works", {
rin = makeResampleInstance(makeResampleDesc("Subsample", iters = 2, split = 0.25), size = 20)
iters = rin$desc$iters
expect_equal(iters, 2)
for (i in 1:iters) {
i1 = rin$train.inds[[i]]
i2 = rin$test.inds[[i]]
expect_equal(length(i1), 5)
expect_equal(length(i2), 15)
expect_true(min(i1) >= 1)
expect_true(max(i1) <= 20)
expect_true(min(i2) >= 1)
expect_true(max(i2) <= 20)
expect_equal(sort(c(i1, i2)), 1:20)
}
})
test_that("subsampling instance is stochastic", {
rin = makeResampleInstance(makeResampleDesc("Subsample", iters = 2, split = 0.25), size = 20)
iters = rin$desc$iters
expect_equal(iters, 2)
for (i in 1:iters) {
i1 = rin$train.inds[[i]]
i2 = rin$test.inds[[i]]
expect_equal(length(i1), 5)
expect_equal(length(i2), 15)
expect_true(min(i1) >= 1)
expect_true(max(i1) <= 20)
expect_true(min(i2) >= 1)
expect_true(max(i2) <= 20)
expect_equal(sort(c(i1, i2)), 1:20)
}
rin1 = makeResampleInstance(makeResampleDesc("Subsample", iters = 3), size = 500)
rin2 = makeResampleInstance(makeResampleDesc("Subsample", iters = 3), size = 500)
expect_true(!all(sort(rin1$test.inds[[1]]) == sort(rin2$test.inds[[1]])))
})
|
