Recommend jokes using the random recommender system in R