Data 605 - Week 5 Discussion

Exercise 1 from Chapter 3

knitr::include_graphics('5-1.png')

choose(6,3)

## [1] 20

choose(5,4)*(1/5)**4*(4/5)

## [1] 0.0064

choose(7,2)

## [1] 21

choose(26,26)

## [1] 1

choose(4,3)*(1/5)**3*(4/5)

## [1] 0.0256

choose(6,2)

## [1] 15

choose(10,9)

## [1] 10

choose(8,5)*(.3)**5*(.7)**3

## [1] 0.04667544