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


head(data.train)
write.csv(data.train[1:500,],"data.train.csv")
write.csv(data.test[1:500,],"data.test.csv")