# Revenge of the Sith 309.306 165.8 ticket_prices_matrix # US non-US Dimnames = list(c("A New Hope", "The Empire Strikes Back","Return of the Jedi", "The Phantom Menace", "Attack of the Clones","Revenge of the Sith"), c("US", "non-US"))) Dimnames = list(c("A New Hope", "The Empire Strikes Back", "Return of the Jedi","The Phantom Menace", "Attack of the Clones", "Revenge of the Sith"), c("US", "non-US"))) Store this selection as us_visitors.Ĭalculate the average number of US visitors print out the result. Assign the result to visitors.įrom the visitors matrix, select the entire first column, representing the number of visitors in the US. # Average non-US revenue for first two moviesĭivide all_wars_matrix by ticket_prices_matrix to get the estimated number of US and non-US visitors for the six movies. Mean(non_us_all) # 242.7 # Select the non-US revenue for first two movies
# Revenge of the Sith 309.306 165.8 # Select the non-US revenue for all movies # all_wars_matrix is available in your workspace Use mean() again to print out the average of the values in non_us_some.
This time, select the non-US revenue for the first two movies in all_wars_matrix. Use mean() on non_us_all to calculate the average non-US revenue for all movies. Select the non-US revenue for all movies (the entire second column of all_wars_matrix), store the result as non_us_all. # Combine both Star Wars trilogies in one matrixĪll_wars_matrix <- rbind(star_wars_matrix,star_wars_matrix2) # Revenge of the Sith 309.306 165.8 # US non-US Star_wars_matrix2 <- matrix(box_office, nrow = 3, byrow = TRUE,ĭimnames = list(c("The Phantom Menace", "Attack of the Clones", "Revenge of the Sith"), Star_wars_matrix <- matrix(box_office, nrow = 3, byrow = TRUE,ĭimnames = list(c("A New Hope", "The Empire Strikes Back", "Return of the Jedi"), Assign the resulting matrix to all_wars_matrix. Use rbind() to paste together star_wars_matrix and star_wars_matrix2, in this order.
0 kommentar(er)
