1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
context("misc")
test_that("is.na10", {
tf <- rep(c(NA, FALSE), length.out = 10)
expect_equal(is.na10(tf), as.integer(is.na(tf)))
})
test_that("normalize", {
a <- seq(0, 1, by = 0.01)
expect_equal(normalize(a), a)
b <- 1:1000000
expect_true(all(normalize(b) <= 1) && all(normalize(b) >= 0))
d <- data.frame(a = a[1:101], b = b[1:101], c = "c")
dn <- normalize(d)
expect_equal(normalize(d[, 1:2]), normalize(as.matrix(d[, 1:2])))
expect_equal(dn[, 1], a)
expect_true(all(dn[[3]] == "c"))
})
test_that("percentize", {
a <- seq(0, 1, by = 0.01)
expect_equal(percentize(a), unname(unlist(percentize(data.frame(a)))))
})
|
