# Process files. acoustics <- specan3(data, parallel=1) # Move back into parent folder. acoustics } W<-function(){ # Load data l <- processFolder() # Set labels. data <- rbind(l) # Remove unused columns. data$duration <- NULL data$sound.files <- NULL data$selec <- NULL data$peakf <- NULL # Remove rows containing NA's. data <- data[complete.cases(data),] #setwd("C:/Users/abhin/Desktop/GenderRecognition") # Write out csv dataset. write.csv(data, file='my_voice.csv', row.names=F) } """ Write= SignatureTranslatedAnonymousPackage(string, "powerpack") Write.W()