# 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()
