clicks_test <- read.csv("../input/clicks_test.csv")
clicks_train <- read.csv("../input/clicks_train.csv")

train_sort <- clicks_train[order(clicks_train$ad_id),]
train_agreegate <- as.data.frame(table(train_sort$ad_id))
names(train_agreegate) <- c("ad_id","total_count")
nrow(train_agreegate)

train_subset <- subset(clicks_train,clicked==1)
train_sort1 <- train_subset[order(train_subset$ad_id),]
train_agreegate1 <- as.data.frame(table(train_sort1$ad_id))
names(train_agreegate1) <- c("ad_id","clicked_count")

train_join <- merge(x=train_agreegate,y=train_agreegate1,by="ad_id")
train_join["factor1"] <- train_join$clicked_count/(train_join$total_count + 10)
nrow(train_join)
str(train_join)


test_sort <- clicks_test[order(clicks_test$ad_id),]
nrow(as.data.frame(table(test_sort$ad_id)))

test_join <- merge(x=test_sort,y=train_join,by="ad_id")
final <- test_join[order(test_join$display_id,-test_join$factor1),c("display_id","ad_id","total_count","clicked_count","factor1")]
nrow(final)
final