Probability Puzzles in R
Peter Chi
Assistant Professor of Statistics Villanova University
The first roll:
roll <- 0
while(roll != 6){
roll <- roll_dice(1)
print(roll)
}
5
2
5
6
roll <- 0
while( (roll != 6) & (roll != 5) ){
roll <- roll_dice(1)
print(roll)
}
2
4
5
roll <- roll_dice(1)
if(roll %in% c(2,4,6) ){
print("The roll is even")
}
"The roll is even"
roll
2
Probability Puzzles in R