Create Shakespeare.R