# Set the random seed for reproducibility set.seed$(5292016)$ # Simulate rolling a pair of dice five times num$\_$simulations $<-5$ dice$\_$rolls $<-$ matrix$($sample$(1$:$6,2*$ num$\_$simulations, replace $=$ TRUE$),$ ncol $=2)$ # Find the largest value on each pair of dice X $<-$ apply$($dice$\_$rolls, $1,$ max$)$ # Print the values of X X