Data 605 - Week 6 Discussion Chapter 3 Page 114

four_cards<- (choose(13, 1) * choose(48, 1))/choose(52, 5)
four_cards

## [1] 0.000240096

fullhouse_cards<- (choose(13, 1) * choose(4, 3) * choose(12, 1) * choose(4, 2))/choose(52, 5)
fullhouse_cards

## [1] 0.001440576

flush1_cards <- choose(13, 5) * choose(4, 1)

flush2_cards <- choose(10, 1) * choose(4, 1)

result_flush_cards <- (flush1_cards - flush2_cards) / choose(52, 5)
result_flush_cards

## [1] 0.001965402

straight_flush_cards <- (choose(10, 1) * (choose(4, 1)^5)) / choose(52, 5)
straight_flush_cards

## [1] 0.003940038