library(StratTourn)
library(shiny)
library(xtable)
library(knitr)
setwd("D:/libraries/StratTourn/studies")

tourn = load.tournament("Tourn_Noisy_PD_20140912_094618_1.tou")
# Data for each match
md = tourn$dt
md = add.other.var(md,c("strat","u"))
md$delta.u = md$u - md$other.u
# Names of all strategies
strats = unique(md$strat)

used.strats = strats

Source code of selected strategies

for (strat in used.strats) {
  txt = deparse.strat(tourn$strat[[strat]], strat)
  cat(paste0(txt,"\n\n"))
}


skranz/StratTourn documentation built on May 30, 2019, 2:02 a.m.