1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
test_that("vorob", {
#skip_on_cran()
test_data <- expand.grid(seq(0, 1, length.out = 51),
seq(0, 1, length.out = 51))
test_data <- as.matrix(cbind(test_data, nrun = 1:nrow(test_data)))
# Average hypervolume is known to be 0.25
# avg_hyp <- mean(sapply(split.data.frame(test_data[,1:2], test_data[,3]),
# hypervolume, reference = c(1, 1)))
expect_equal(hypervolume(vorobT(x = test_data, reference = c(1, 1))$VE, reference = c(1, 1)), 0.25, tolerance = 1e-1)
expect_equal(vorobDev(x = test_data, VE = vorobT(test_data, c(1,1))$VE, reference = c(1, 1)), 0.218, tolerance = 1e-1)
})
|
