a <- read.table("../input/train_date.csv")