Intro Stuff
setwd("C:/Users/Jerome/Documents/Data_Science_110/Datasets")
library(tidyverse)
## -- Attaching packages ----------------------------------------------------------------------------------------------- tidyverse 1.3.0 --
## v ggplot2 3.3.2 v purrr 0.3.4
## v tibble 3.0.1 v dplyr 1.0.0
## v tidyr 1.1.0 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()
lcn_fpf_co_names <-read.csv("lcn_fpf_co_names.csv", header = TRUE)
t.test(lcn_fpf_co_names$MEASURE~lcn_fpf_co_names$Svy_Year)
##
## Welch Two Sample t-test
##
## data: lcn_fpf_co_names$MEASURE by lcn_fpf_co_names$Svy_Year
## t = 36.309, df = 19492, p-value < 2.2e-16
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## 10.84161 12.07895
## sample estimates:
## mean in group 2007 mean in group 2013
## 49.40959 37.94930
lcn_sample_2 <-read.csv("lcn_sample_2.csv", header = TRUE)
t.test(lcn_sample_2$MEASURE~lcn_sample_2$Svy_Year)
##
## Welch Two Sample t-test
##
## data: lcn_sample_2$MEASURE by lcn_sample_2$Svy_Year
## t = 2.0684, df = 144.97, p-value = 0.04038
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## 0.2997987 13.1881203
## sample estimates:
## mean in group 2007 mean in group 2013
## 48.02188 41.27792