# NOT RUN {
data(adv)
SEQ <- elo.seq(winner=adv$winner, loser=adv$loser, Date=adv$Date)
mat <- creatematrix(SEQ)
res <- randomelo(mat, 10)
data.frame(ID=colnames(res[[1]]), avg=round(colMeans(res[[1]]),1))
# }
Run the code above in your browser using DataLab