Install the necessary packages for this lab
# install.packages("tidyverse")
# install.packages("openintro")
Access the packages using “libarary”
library(tidyverse)
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.5 v purrr 0.3.4
## v tibble 3.1.2 v dplyr 1.0.7
## v tidyr 1.1.3 v stringr 1.4.0
## v readr 1.4.0 v forcats 0.5.1
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()
library(openintro)
## Warning: package 'openintro' was built under R version 4.1.1
## Loading required package: airports
## Warning: package 'airports' was built under R version 4.1.1
## Loading required package: cherryblossom
## Warning: package 'cherryblossom' was built under R version 4.1.1
## Loading required package: usdata
## Warning: package 'usdata' was built under R version 4.1.1
Load the data
arbuthnot <- arbuthnot
glimpse(arbuthnot)
## Rows: 82
## Columns: 3
## $ year <int> 1629, 1630, 1631, 1632, 1633, 1634, 1635, 1636, 1637, 1638, 1639~
## $ boys <int> 5218, 4858, 4422, 4994, 5158, 5035, 5106, 4917, 4703, 5359, 5366~
## $ girls <int> 4683, 4457, 4102, 4590, 4839, 4820, 4928, 4605, 4457, 4952, 4784~
boys <- arbuthnot$boys
mean(boys)
## [1] 5907.098