Intro Stuff
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
library(infer)
## Warning: package 'infer' was built under R version 4.0.2
getwd()
## [1] "C:/Users/Jerome/Documents/From_Toshiba_HD_Work_Files/0000_Montgomery_College/Math_217/Week_11"
Problem 2
expected = c(0.25,0.25, 0.25, 0.25)
observed = c(167, 176, 174, 194)
chisq.test(observed, p=expected)
##
## Chi-squared test for given probabilities
##
## data: observed
## X-squared = 2.2321, df = 3, p-value = 0.5257
expected2 = c(177.75/711, 177.75/711, 177.75/711, 177.75/711)
observed2 = c(167,176,174,194)
chisq.test (observed2, p=expected2)
##
## Chi-squared test for given probabilities
##
## data: observed2
## X-squared = 2.2321, df = 3, p-value = 0.5257
Problem 3
test_yes <- c(11,8)
test_no = c(52,54)
test = data.frame(test_yes, test_no)
chisq.test(test)
##
## Pearson's Chi-squared test with Yates' continuity correction
##
## data: test
## X-squared = 0.21197, df = 1, p-value = 0.6452
female = c(11,52)
male = c(8,54)
test2 = data.frame(female, male)
chisq.test(test2)
##
## Pearson's Chi-squared test with Yates' continuity correction
##
## data: test2
## X-squared = 0.21197, df = 1, p-value = 0.6452