str(Dice)
attach(Dice)
roll1 <- sample(1:6,2000,replace=TRUE)
roll2 <- sample(1:6,2000,replace=TRUE)
outcome <- roll1+roll2
table(outcome)/length(outcome)
detach(Dice)
remove(roll1,roll2,outcome)
Run the code above in your browser using DataLab