1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
test01 <- function() {
if (require(foreach, quietly=TRUE)) {
xcountn <- function(x) {
iter(do.call('expand.grid', lapply(x, seq_len)), by='row')
}
vv <- list(0, 1, 2, 10, 100,
c(0, 1), c(0, 2), c(3, 0),
c(1, 1), c(1, 2), c(1, 3),
c(2, 1), c(2, 2), c(2, 3),
c(10, 10, 0, 10),
c(1, 1, 2, 1, 1, 3, 1, 1, 1, 2, 1, 1, 1),
c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
c(10, 10, 10, 10))
for (v in vv) {
ait <- icountn(v)
xit <- xcountn(v)
foreach(actual=ait, expected=xit) %do% {
checkEquals(actual, unname(unlist(expected)))
}
}
}
}
|
