library(tidyverse)

s1 = read_csv("../input/ensemble/lgb_1.62003130.csv")
s2 = read_csv("../input/ensemble/submit.csv")
s3 = read_csv("../input/ensemble/submission.csv")

s4 = s1

s4$PredictedLogRevenue = 0.45336879*s1$PredictedLogRevenue + 0.36144715*s2$PredictedLogRevenue + 0.15091407*s3$PredictedLogRevenue
s4 %>% write_csv("Ensemble_submission.csv")