#! /usr/bin/Rscript

args <- commandArgs(trailingOnly = TRUE)

lwords <- lapply(args, readLines)
words <- unlist(lwords)
head(words)

logWordFreq <- sort(log(table(words)),decreasing = TRUE)
logWordFreqRank <- log(1:length(logWordFreq))
head(logWordFreq)

logFreqFreq <- sort(log(table(logWordFreq)), decreasing = TRUE)
logFreqFreqRank <- log(1:length(logFreqFreq))
head(logFreqFreq)

pdf()
par(mfcol=c(1,2))
plot(logWordFreqRank,
     logWordFreq,
     type='l',
     xlab="log rank",
     ylab="log word frequency")
plot(logFreqFreqRank,
     logFreqFreq,
     type='l',
     xlab="log rank",
     ylab="log frequency of word frequency")
dev.off()