library(data.table)
train_data<-fread("../input/train_date.csv")
str(train_data)