ace_card <- 4
total_cards <- 52
ace_card/total_cards
## [1] 0.07692308
\[ P(Ace)=4/52 = 0.076\]
Assuming each toss is independent from the other:
\[ P(H)=1/2 \\ P(HH)=1/2 * 1/2=0.25 \]
(1/2) * (1/2)
## [1] 0.25
1/6 * 1/6
## [1] 0.02777778
\[ P(6)=1/6 \\ P(2x6)=1/6 * 1/6= 0.0277 \]