Saturday, November 22, 2014

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")) }