library(data.table)
library(dplyr) 
library(xgboost)

system("ls ../input")

data.train <- fread("../input/train.csv", colClasses=list(character="place_id"))
data.test <- fread("../input/test.csv")

#train.end <- max(data.train$time)
#test.end <- max(data.test$time)

head(data.train)
str(data.train)