library(devtools)
load_all('./')

data_matrix <- read.csv("data_matrix_3alg.csv") # type ?read.csv for help
 
challenge <- as.challenge(data_matrix,
                          by = "task",
                          algorithm = "alg_name",
                          case = "case",
                          value = "value",
                          smallBetter = TRUE)


bootstrapSamples <- 1000
ranking <- challenge %>% aggregateThenRank(FUN = mean, na.treat = 0, ties.method = "min")

meanRanks <- ranking %>% consensus(method = "euclidean")

if (bootstrapSamples > 0) {
  set.seed(1)
  rankingBootstrapped <- ranking %>% bootstrap(nboot = bootstrapSamples)
  ranking <- rankingBootstrapped
}


# Generate the report
ranking %>%
  report(consensus = meanRanks,
         title = "Data Matrix with 3 Algorithms",
         file = "outputFile_dataMatrix_3alg",
         format = "PDF",
         latex_engine = "pdflatex",
         clean = TRUE,
         open = FALSE,)