Intro Stuff
getwd(
)
## [1] "C:/Users/Jerome/Documents/From_Toshiba_HD_Work_Files/0000_Montgomery_College/Math_217/Week_12"
library(tidyverse)
## Warning: package 'tidyverse' was built under R version 4.0.2
## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --
## v ggplot2 3.3.2 v purrr 0.3.4
## v tibble 3.0.4 v dplyr 1.0.2
## v tidyr 1.1.2 v stringr 1.4.0
## v readr 1.4.0 v forcats 0.5.0
## Warning: package 'tibble' was built under R version 4.0.3
## Warning: package 'tidyr' was built under R version 4.0.2
## Warning: package 'dplyr' was built under R version 4.0.2
## -- 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.0.2
## Loading required package: airports
## Warning: package 'airports' was built under R version 4.0.2
## Loading required package: cherryblossom
## Warning: package 'cherryblossom' was built under R version 4.0.2
## Loading required package: usdata
## Warning: package 'usdata' was built under R version 4.0.2
#install.packages("statsr")
library(statsr)
## Warning: package 'statsr' was built under R version 4.0.3
##
## Attaching package: 'statsr'
## The following objects are masked from 'package:openintro':
##
## calc_streak, evals, nycflights, present
data(hfi)
Exercise 1 Dimensions of the Dataset hfi
dim(hfi)
## [1] 1458 123
There are 123 variables & 1,458 observations
Exercise 2
write.csv(hfi, file = "hfi.csv")
hfi_small = hfi[,c(1,4,48,62,121)]
write.csv(hfi_small, file ="hfi_small.csv",row.names = FALSE)
hfi_small <- read.csv("hfi_small.csv")
hfi[,1]
## # A tibble: 1,458 x 1
## year
## <dbl>
## 1 2016
## 2 2016
## 3 2016
## 4 2016
## 5 2016
## 6 2016
## 7 2016
## 8 2016
## 9 2016
## 10 2016
## # ... with 1,448 more rows
hfi[,4]
## # A tibble: 1,458 x 1
## region
## <chr>
## 1 Eastern Europe
## 2 Middle East & North Africa
## 3 Sub-Saharan Africa
## 4 Latin America & the Caribbean
## 5 Caucasus & Central Asia
## 6 Oceania
## 7 Western Europe
## 8 Caucasus & Central Asia
## 9 Latin America & the Caribbean
## 10 Middle East & North Africa
## # ... with 1,448 more rows
hfi[,48]
## # A tibble: 1,458 x 1
## pf_expression_control
## <dbl>
## 1 5.25
## 2 4
## 3 2.5
## 4 5.5
## 5 4.25
## 6 7.75
## 7 8
## 8 0.25
## 9 7.25
## 10 0.75
## # ... with 1,448 more rows
hfi[,62]
## # A tibble: 1,458 x 1
## pf_score
## <dbl>
## 1 7.60
## 2 5.28
## 3 6.11
## 4 8.10
## 5 6.91
## 6 9.18
## 7 9.25
## 8 5.68
## 9 7.45
## 10 6.14
## # ... with 1,448 more rows
hfi[,121]
## # A tibble: 1,458 x 1
## hf_score
## <dbl>
## 1 7.57
## 2 5.14
## 3 5.64
## 4 6.47
## 5 7.24
## 6 8.58
## 7 8.41
## 8 6.08
## 9 7.40
## 10 6.85
## # ... with 1,448 more rows