[TOC]
train <- read.csv("../train.csv", stringsAsFactors = F, row.names = 1)
cat("simplifying names...\n")