Kaggle Acquire Competition - Distribution of Scores 11 June 2014

kaggle.aquire.scores.20140611

library(XML)
library(ggplot2)

url  <- "http://www.kaggle.com/c/acquire-valued-shoppers-challenge/leaderboard"
tree <- htmlTreeParse(url)
tbl  <- readHTMLTable(pagetree, stringsAsFactors = FALSE)[[1]]

colnames(tbl) <- gsub("[^a-zA-Z0-9#]","", colnames(tbl))
tbl$Score     <- as.numeric(tbl$Score)

ggplot(tbl, aes(Score)) + geom_histogram() + xlab("Score") + geom_vline(x=0.5, colour = "red")

ggplot(tbl, aes(Score)) + stat_ecdf()