# construct the second matrix of movies
Phantom_Menace <- c(474.5, 552.5)
Attack_of_the_Clones <- c(310.7, 338.7)
Revenge_of_the_Sith <- c(380.3, 468.5)

# Create box_office2
box_office2 <- c(Phantom_Menace, Attack_of_the_Clones, Revenge_of_the_Sith)

# Construct star_wars_matrix2
star_wars_matrix2 <- matrix(box_office2, nrow = 3, byrow = TRUE)

# Vectors region and titles, used for naming
region <- c("US", "non-US")
titles <- c("The Phantom Menace", "Attack of the Clones", "Revenge of the Sith")

# Name the columns with region
colnames(star_wars_matrix2) <- region

# Name the rows with titles
rownames(star_wars_matrix2) <- titles

star_wars_matrix2
