# Use the table from the exercise to define the comments and scores vectors

scores $<-$ c$(4\mathrm{.}6,5,4\mathrm{.}8,5,4\mathrm{.}2)$

comments $<-$ list$("$I would watch it again","Amazing!","I liked it$",$"One of the best movies","Fascinating plot"$)$

# Save the average of the scores vector as avg$\_$review

avg$\_$review$<-$mean$($scores$)$

# Combine scores and comments into the reviews$\_$df data frame

reviews$\_$df$<-$ data.frame$($scores$,$comments$)$

# Create and print out a list, called departed$\_$list

departed$\_$list$<-$list$($title$=$"The Departed",actors$=$movie$\_$actors,reviews$=$reviews$\_$df$,$average$\_$review$=$avg$\_$review$)$

print$($departed$\_$list$)$