library(readr)
submission <- read_csv("../input/sample_submission.csv")
submission$diagnosis <- 0
write.csv(submission, file = "submission.csv", row.names = FALSE, na="") # export the file for submission