textdata <- readLines(commandArgs()[4])
listofwords <- unlist(strsplit(x=textdata, split=" "))
flatdata <- unlist(listofwords)
freqtable <- sort(table(tolower(flatdata)), decreasing=TRUE)
write.table(x=cbind(freqtable, names(freqtable)), file="poefrequencies.txt",
            col.names=FALSE, row.names=FALSE, quote=FALSE, sep="\t")