library(data.table) 
train <- fread("../input/train.csv", showProgress=F)
instantDownloads <- subset(train, attributed_time == click_time)
nrow(instantDownloads)
head(instantDownloads)
fwrite(instantDownloads, "instantDownloads.csv")