require(data.table)

trainnum <- fread("../input/train_numeric.csv",nrow = 0)
col.num.nm <- names(trainnum)

traincat <- fread("../input/train_categorical.csv",nrow = 0)
col.cat.nm <- names(traincat)

traindate <- fread("../input/train_date.csv",nrow = 0)
col.date.nm <- names(traindate)

col.num.woidop <- setdiff(col.num.nm,c("Id","Response"))
line_id <- sapply(strsplit(col.num.woidop, "_"), "[", c(1))
station_id <- sapply(strsplit(col.num.woidop, "_"), "[", c(2))
feature_id.num <- as.numeric(substr(sapply(strsplit(col.num.woidop, "_"), "[", c(3)),2,10))
col.date.num <- paste(line_id,"_",station_id,"_D",feature_id.num+1,sep="")
label.num.date <- data.frame(feature = col.num.woidop[which(col.date.num %in% col.date.nm)],
                             date = col.date.num[which(col.date.num %in% col.date.nm)], stringsAsFactors = FALSE)

print(label.num.date)