library(data.table)
#train_data <- fread("train_date.csv",sep=",",header=T)
write.csv("a","a.csv")