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
for (strat in used.strats) { txt = deparse.strat(tourn$strat[[strat]], strat) cat(paste0(txt,"\n\n")) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.