T28966_test.R
aekavur (Ali Emre Kavur)
Actions

Authored By

	aekavur
	Feb 7 2022, 2:57 PM

Size

1008 B

Referenced Files

None

Subscribers

None

T28966_test.R
View Options

	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,)