sub = read.csv('../input/sample_submission.csv')
head(sub)
x<-sample(1:5)
paste(x,collapse=" ")
paste(sample(c(1:5)),collapse=" ") 
str(sub)
nrow(sub)
sub$day=paste(sample(1:5),collapse=" ")
for(i in 1:nrow(sub)){
x<-sample(1:5)
sub$day[i] = paste(sample(1:5),collapse=" ") }
head(sub)
write.csv(sub,"naive_submit.csv",row.names=FALSE)
warnings()