knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
require(knitr) require(data.table) require(DataChallenge.2017) evs <- dc.evaluate(save=TRUE) baseline <- subset(evs, FILE=='/Users/Oliver/git/DataChallenge.2017/data_private/DataChallenge_olli0601_baseline_predictions.csv')[, MSE] evs <- subset(evs, FILE!='/Users/Oliver/git/DataChallenge.2017/data_private/DataChallenge_olli0601_baseline_predictions.csv') evs <- evs[order(MSE), ] evs[, RANK:= seq_len(nrow(evs))] evs[, ABOVE_BASELINE:= as.character(factor(MSE<=baseline, levels=c(TRUE,FALSE), labels=c('yes','no')))] evs[, FILE:=NULL] set(evs, evs[, which(grepl('_16:',TIME, fixed=TRUE))], 'TIME', '2017-11-20_15:58:28') dtop10 <- subset(evs, RANK<=10, select=c(TEAM_ID, SUBMISSION_ID, TIME, MSE, RANK, ABOVE_BASELINE)) dbestofteam <- evs[, { z<- which.min(MSE) list(SUBMISSION_ID=SUBMISSION_ID[z], TIME=TIME[z], MSE=MSE[z], RANK=RANK[z], ABOVE_BASELINE=ABOVE_BASELINE[z]) }, by='TEAM_ID']
The WINNERS of the 2017 Data Challenge of the MSc in Statistics are
TEAM BOOM BOOM (FRANCK LIN, LAN YU, JUNYU GAO).
Second prize: team Birdo (Wenrui Zheng, Richard Burn, Edoardo Lisi).
Third prize: team Koopa (Ting Au, Efstratios Xenelis, Catarina Alves).
Congratulations to all.
kable(dtop10)
kable(dbestofteam)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.