setwd("../")

library(readr)
library(tuneR)

sample_submission <- read_csv("input/sample_submission.csv")
train_curated <- read_csv("input/train_curated.csv")
train_noisy <- read_csv("input/train_noisy.csv")

file_ls<-list.files("input/train_curated/")

#Example read file 0019ef41
fname = 'input/train_curated/0019ef41.wav' 
sndObj <- readWave(fname)
plot(sndObj)

#Example read anyfile
sndObj_any <- readWave(paste("input/train_curated/",file_ls[1],sep=""))
plot(sndObj_any)

#Random Submission
x<-sample_submission[,-1]
submission<-as.data.frame(apply(x, c(1,2), function(x) sample(c(0,0.1,0.2,0.3,0.7,0.8,0.9,1),1)))
submission$fname<-sample_submission$fname
write.csv(submission,file ="/kaggle/working/submission.csv",row.names = FALSE  )