{
# Which was the least viewed episode ever?
ratings[which.min(ratings$viewership_millions), c("season", "episode", "viewership_millions")]
# Which was the most viewed episode ever?
ratings[which.max(ratings$viewership_millions), c("season", "episode", "viewership_millions")]
}
Run the code above in your browser using DataLab