# Construct star$\_$wars$\_$matrix

box$\_$office $<-$ c$(460\mathrm{.}998,314\mathrm{.}4,290\mathrm{.}475,247\mathrm{.}900,309\mathrm{.}306,165\mathrm{.}8)$

region $<-$ c$("$US$",$ "non$-$US$")$

titles $<-$ c$("$A New Hope",

"The Empire Strikes Back",

"Return of the Jedi"$)$

star$\_$wars$\_$matrix $<-$ matrix$($box$\_$office,

nrow $=3,$ byrow $=$ TRUE,

dimnames $=$ list$($titles$,$ region$))$

# The worldwide box office figures

worldwide$\_$vector $<-$ rowSums$($star$\_$wars$\_$matrix$)$

# Bind the new variable worldwide$\_$vector as a column to star$\_$wars$\_$matrix

all$\_$wars$\_$matrix $<-$ cbind$($star$\_$wars$\_$matrix,world$\_$wide$\_$vector$)$