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