diff --git a/tests/testthat/test-boxplot.R b/tests/testthat/test-boxplot.R
index 66d8538..3c71d51 100644
--- a/tests/testthat/test-boxplot.R
+++ b/tests/testthat/test-boxplot.R
@@ -1,54 +1,55 @@
test_that("boxplot for ranked single-task data set has no title", {
data <- rbind(
data.frame(algo="A1", value=0.8, case="C1"),
data.frame(algo="A2", value=0.6, case="C1"),
data.frame(algo="A3", value=0.4, case="C1"),
data.frame(algo="A1", value=0.2, case="C2"),
data.frame(algo="A2", value=0.1, case="C2"),
data.frame(algo="A3", value=0.0, case="C2"))
challenge <- as.challenge(data, taskName="T1", algorithm="algo", case="case", value="value", smallBetter=FALSE)
ranking <- challenge%>%aggregateThenRank(FUN=median, ties.method="min")
- actualPlot <- boxplot(ranking)[[1]]
+ actualPlot <- boxplot(ranking)
expect_is(actualPlot, "ggplot")
expect_equal(actualPlot$labels$title, NULL)
})
test_that("boxplots for ranked multi-task data set have titles", {
dataTask1 <- cbind(task="T1",
rbind(
data.frame(algo="A1", value=0.8, case="C1"),
data.frame(algo="A2", value=0.6, case="C1"),
data.frame(algo="A3", value=0.4, case="C1"),
data.frame(algo="A1", value=0.2, case="C2"),
data.frame(algo="A2", value=0.1, case="C2"),
data.frame(algo="A3", value=0.0, case="C2")
))
dataTask2 <- cbind(task="T2",
rbind(
data.frame(algo="A1", value=0.2, case="C1"),
data.frame(algo="A2", value=0.3, case="C1"),
data.frame(algo="A3", value=0.4, case="C1"),
data.frame(algo="A1", value=0.7, case="C2"),
data.frame(algo="A2", value=0.8, case="C2"),
data.frame(algo="A3", value=0.9, case="C2")
))
data <- rbind(dataTask1, dataTask2)
challenge <- as.challenge(data, by="task", algorithm="algo", case="case", value="value", smallBetter=FALSE)
ranking <- challenge%>%aggregateThenRank(FUN=median, ties.method="min")
actualPlots <- boxplot(ranking)
actualPlotTask1 <- actualPlots[[1]]
actualPlotTask2 <- actualPlots[[2]]
expect_is(actualPlotTask1, "ggplot")
expect_equal(actualPlotTask1$labels$title, "T1")
expect_is(actualPlotTask2, "ggplot")
expect_equal(actualPlotTask2$labels$title, "T2")
})
+
diff --git a/tests/testthat/test-rankingHeatmap.R b/tests/testthat/test-rankingHeatmap.R
index 5c77967..33a0733 100644
--- a/tests/testthat/test-rankingHeatmap.R
+++ b/tests/testthat/test-rankingHeatmap.R
@@ -1,54 +1,54 @@
test_that("ranking heatmap for single-task data set has no title", {
data <- rbind(
data.frame(algo="A1", value=0.8, case="C1"),
data.frame(algo="A2", value=0.6, case="C1"),
data.frame(algo="A3", value=0.4, case="C1"),
data.frame(algo="A1", value=0.2, case="C2"),
data.frame(algo="A2", value=0.1, case="C2"),
data.frame(algo="A3", value=0.0, case="C2"))
challenge <- as.challenge(data, taskName="T1", algorithm="algo", case="case", value="value", smallBetter=FALSE)
ranking <- challenge%>%aggregateThenRank(FUN=median, ties.method="min")
- actualPlot <- rankingHeatmap(ranking)[[1]]
+ actualPlot <- rankingHeatmap(ranking)
expect_is(actualPlot, "ggplot")
expect_equal(actualPlot$labels$title, NULL)
})
test_that("ranking heatmap for multi-task data set have titles", {
dataTask1 <- cbind(task="T1",
rbind(
data.frame(algo="A1", value=0.8, case="C1"),
data.frame(algo="A2", value=0.6, case="C1"),
data.frame(algo="A3", value=0.4, case="C1"),
data.frame(algo="A1", value=0.2, case="C2"),
data.frame(algo="A2", value=0.1, case="C2"),
data.frame(algo="A3", value=0.0, case="C2")
))
dataTask2 <- cbind(task="T2",
rbind(
data.frame(algo="A1", value=0.2, case="C1"),
data.frame(algo="A2", value=0.3, case="C1"),
data.frame(algo="A3", value=0.4, case="C1"),
data.frame(algo="A1", value=0.7, case="C2"),
data.frame(algo="A2", value=0.8, case="C2"),
data.frame(algo="A3", value=0.9, case="C2")
))
data <- rbind(dataTask1, dataTask2)
challenge <- as.challenge(data, by="task", algorithm="algo", case="case", value="value", smallBetter=FALSE)
ranking <- challenge%>%aggregateThenRank(FUN=median, ties.method="min")
actualPlots <- rankingHeatmap(ranking)
actualPlotTask1 <- actualPlots[[1]]
actualPlotTask2 <- actualPlots[[2]]
expect_is(actualPlotTask1, "ggplot")
expect_equal(actualPlotTask1$labels$title, "T1")
expect_is(actualPlotTask2, "ggplot")
expect_equal(actualPlotTask2$labels$title, "T2")
})
diff --git a/tests/testthat/test-significanceMap.R b/tests/testthat/test-significanceMap.R
index 6f04755..6f59f32 100644
--- a/tests/testthat/test-significanceMap.R
+++ b/tests/testthat/test-significanceMap.R
@@ -1,54 +1,54 @@
test_that("significance map for single-task data set has no title", {
data <- rbind(
data.frame(algo="A1", value=0.8, case="C1"),
data.frame(algo="A2", value=0.6, case="C1"),
data.frame(algo="A3", value=0.4, case="C1"),
data.frame(algo="A1", value=0.2, case="C2"),
data.frame(algo="A2", value=0.1, case="C2"),
data.frame(algo="A3", value=0.0, case="C2"))
challenge <- as.challenge(data, taskName="T1", algorithm="algo", case="case", value="value", smallBetter=FALSE)
ranking <- challenge%>%aggregateThenRank(FUN=median, ties.method="min")
- actualPlot <- significanceMap(ranking)[[1]]
+ actualPlot <- significanceMap(ranking)
expect_is(actualPlot, "ggplot")
expect_equal(actualPlot$labels$title, NULL)
})
test_that("significance map for multi-task data set have titles", {
dataTask1 <- cbind(task="T1",
rbind(
data.frame(algo="A1", value=0.8, case="C1"),
data.frame(algo="A2", value=0.6, case="C1"),
data.frame(algo="A3", value=0.4, case="C1"),
data.frame(algo="A1", value=0.2, case="C2"),
data.frame(algo="A2", value=0.1, case="C2"),
data.frame(algo="A3", value=0.0, case="C2")
))
dataTask2 <- cbind(task="T2",
rbind(
data.frame(algo="A1", value=0.2, case="C1"),
data.frame(algo="A2", value=0.3, case="C1"),
data.frame(algo="A3", value=0.4, case="C1"),
data.frame(algo="A1", value=0.7, case="C2"),
data.frame(algo="A2", value=0.8, case="C2"),
data.frame(algo="A3", value=0.9, case="C2")
))
data <- rbind(dataTask1, dataTask2)
challenge <- as.challenge(data, by="task", algorithm="algo", case="case", value="value", smallBetter=FALSE)
ranking <- challenge%>%aggregateThenRank(FUN=median, ties.method="min")
actualPlots <- significanceMap(ranking)
actualPlotTask1 <- actualPlots[[1]]
actualPlotTask2 <- actualPlots[[2]]
expect_is(actualPlotTask1, "ggplot")
expect_equal(actualPlotTask1$labels$title, "T1")
expect_is(actualPlotTask2, "ggplot")
expect_equal(actualPlotTask2$labels$title, "T2")
})