library(data.table);fwrite(fread("../input/sample_submission.csv")[, is_attributed := rbind(fread("../input/train.csv", drop=c("ip", "click_time", "attributed_time")), fread("../input/test.csv", drop=c("ip", "click_time", "click_id")), fill=T)[, m := mean(is_attributed, na.rm=T)][, app_f := .N, by = app][, is_attributed_m := mean(is_attributed, na.rm=T), by = "app_f,device,os,channel,app"][is.na(is_attributed_m), is_attributed_m := m][is.na(is_attributed), round(is_attributed_m, 5)]], "1liner.csv")