# NOT RUN {
data(Jester)
Jester
hist(getRatings(Jester), main = "Distribution of ratings")
# what is the best joke? (highest average rating)
best <- which.max(colMeans(Jester))
cat(JesterJokes[best])
# }
Run the code above in your browser using DataLab