Shakespearean insult generator in R

Credit to this site for the idea. Simple R code to generate Shakespearean insults. download the insult_words.csv file here.

insult_words <- read.csv("insult_words.csv",header=F) paste("Thou",sample(insult_words[,1],1),sample(insult_words[,2],1),sample(insult_words[,3],1),"!")

Or give your self a bunch of ammunition:

for(i in 1:10){ cat(paste("Thou",sample(insult_words[,1],1),sample(insult_words[,2],1),sample(insult_words[,3],1),"!\n")) }