library(data.table)

sub <- fread("../input/sample_submission_v2.csv")

sub$PredictedLogRevenue <- 0 # Force the prediction to all zeroes
fwrite(sub, 'allzeroprediction.csv')