```
n=50
set.seed(4)
strip=runif(n,.9,1)
c_ideal=cbind(task="c_ideal",
rbind(
data.frame(alg_name="A1",value=runif(n,.9,1),case=1:n),
data.frame(alg_name="A2",value=runif(n,.8,.89),case=1:n),
data.frame(alg_name="A3",value=runif(n,.7,.79),case=1:n),
data.frame(alg_name="A4",value=runif(n,.6,.69),case=1:n),
data.frame(alg_name="A5",value=runif(n,.5,.59),case=1:n)
))
set.seed(1)
c_random=data.frame(task="c_random",
alg_name=factor(paste0("A",rep(1:5,each=n))),
value=plogis(rnorm(5*n,1.5,1)),case=rep(1:n,times=5)
)
strip2=seq(.8,1,length.out=5)
a=permute::allPerms(1:5)
c_worstcase=data.frame(task="c_worstcase",
alg_name=c(t(a)),
value=rep(strip2,nrow(a)),
case=rep(1:nrow(a),each=5)
)
c_worstcase=rbind(c_worstcase,
data.frame(task="c_worstcase",alg_name=1:5,value=strip2,case=max(c_worstcase$case)+1)
)
c_worstcase$alg_name=factor(c_worstcase$alg_name,labels=paste0("A",1:5))
data_matrix_sim=rbind(c_ideal, c_random, c_worstcase)
challenge_multiple= challenge=as.challenge(data_matrix_sim,
by="task",
algorithm="alg_name", case="case", value="value",
smallBetter = F)
ranking=challenge%>%aggregateThenRank(FUN = function(x) quantile(x,probs=.05), # aggregation function,
na.treat=0, # either "na.rm" to remove missing data,
ties.method = "min" # a character string specifying
)
set.seed(1);boot_object=ranking_bootstrapped=ranking%>%bootstrap(nboot=5)
meanRanks=ranking%>%consensus(method = "euclidean")
report(ranking,
consensus=meanRanks,
title="multiShortFew",
file = "multiShortFew",
colors=viridis::inferno, format = "PDF", # format can be "PDF", "HTML" or "Word"
latex_engine="pdflatex",#LaTeX engine for producing PDF output. Options are "pdflatex", "lualatex", and "xelatex"
open=T
)
```
gives warning
```
2: LaTeX Warning: Reference `blobByTask' on page 10 undefined on input line 285.
LaTeX Warning: There were undefined references.
``