hw

library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --

## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.3     v dplyr   1.0.2
## v tidyr   1.1.2     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.5.0

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(openintro)

## Loading required package: airports

## Loading required package: cherryblossom

## Loading required package: usdata

dbinom(0, 6, .24)

## [1] 0.1926999

dbinom(1, 6, .24)

## [1] 0.3651157

dbinom(2, 6, .24)

## [1] 0.2882492

dbinom(3, 6, .24)

## [1] 0.1213681

dbinom(4, 6, .24)

## [1] 0.02874507

dbinom(5, 6, .24)

## [1] 0.003630957

dbinom(6, 6, .24)

## [1] 0.000191103

1-pbinom(3, 6, .24)

## [1] 0.03256713