Doctorado-ML/benchmark
1
0
Fork 0
mirror of https://github.com/Doctorado-ML/benchmark.git synced 2025-08-15 23:45:54 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix report title in exreport

Browse Source
This commit is contained in:
Ricardo Montañana Gómez
2022-03-02 13:01:44 +01:00
parent 15b46fcc21
commit efbdd5031f
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/benchmark.r
View File

@@ -7,7 +7,7 @@ csv_file <- glue("results/exreport_{args[1]}.csv")
destination <- "exreport/"
results <- read.csv(csv_file)
library(exreport)
experiment <- expCreate(results, method="classifier", problem="dataset", name="Stree")
experiment <- expCreate(results, method="classifier", problem="dataset", name="Ranking")
testScore <- testMultipleControl(experiment, args[1], "max")
summary(testScore)
table1 <- tabularTestSummary(testScore, columns = c("pvalue", "rank", "wtl"))
@@ -16,7 +16,7 @@ plot1 <- plotExpSummary(experiment, args[1], columns = 3)
plot2 <- plotCumulativeRank(testScore)
plot3 <- plotRankDistribution(testScore)
report <- exreport("Stree Report")
report <- exreport("Ranking Report")
# Add the experiment object for reference:
report <- exreportAdd(report, experiment)
# Now add the test:
@@ -31,7 +31,7 @@ report <- exreportAdd(report, list(plot1, plot2, table1, plot3))
# We have decided to generate the table at this point of the tutorial to discusse some special formating parameters of this function. Concretely, some of the tabular outputs generated by exreport have some properties that are only useful when rendering the objets in a graphic report, and have no effect in the object representation in the R console. In this case, we will tell the function to boldface the method that maximices the result for each column, and to split the table into to pieces when rendering.
# We create the table:
table2 <- tabularExpSummary(experiment, args[1], digits=4, format="f", boldfaceColumns="max", tableSplit=2)
table2 <- tabularExpSummary(experiment, args[1], digits=4, format="f", boldfaceColumns="max", rowsAsMethod=FALSE)
# And add it to the report:
report <- exreportAdd(report, table2)
# Now that we have finished adding elements to the report it is time to render it. We want to generate an HTML report, so we call the appropiate function, by default it renders and opens the report in your browser using a temporary file, but you can optionally specify a folder in which the report will be saved for future use.