w8 homework

1.펭귄의 종 (Species)과 발견된 섬 (Island) 간에 유의미한 관계가 있는가?1. 데이터 전처리 펭귄의 종 (Species)과 발견된 섬 (Island) 변수만을 사용하여 데이터프레임 만들기.결측치를 포함한 행을 제거하기.

knitr::opts_chunk$set(echo = TRUE)
install.packages("palmerpenguins", repos = "http://cran.r-project.org")

## 
## The downloaded binary packages are in
##  /var/folders/lj/0v7ttc9x1ds4s5myk2ngjj0m0000gn/T//RtmpUMlJh1/downloaded_packages

library(palmerpenguins)

## 
## Attaching package: 'palmerpenguins'

## The following objects are masked from 'package:datasets':
## 
##     penguins, penguins_raw

penguins_subset<-penguins[,c("species","island")]
penguins_clean<-na.omit(penguins_subset)
head(penguins_clean)

## # A tibble: 6 × 2
##   species island   
##   <fct>   <fct>    
## 1 Adelie  Torgersen
## 2 Adelie  Torgersen
## 3 Adelie  Torgersen
## 4 Adelie  Torgersen
## 5 Adelie  Torgersen
## 6 Adelie  Torgersen

2.교차표 작성

knitr::opts_chunk$set(echo = TRUE)
penguin_table<-table(penguins_clean$species,penguins_clean$island)
print(penguin_table)

##            
##             Biscoe Dream Torgersen
##   Adelie        44    56        52
##   Chinstrap      0    68         0
##   Gentoo       124     0         0

3.카이제곱 검정 수행하기

knitr::opts_chunk$set(echo = TRUE)
chisq_test<-chisq.test(penguin_table)
print(chisq_test)

## 
##  Pearson's Chi-squared test
## 
## data:  penguin_table
## X-squared = 299.55, df = 4, p-value < 2.2e-16

4. 결과 해석하기

귀무가설(H0):펭귄의 종과 발견된 섬은 연관이 없다.

대립가설(H1):펭귄의 종과 발견된 섬은 연관이 있다.

###p-value interpretation: p-value 가 0.05 보다 작기 때문에 귀무가설을 기각하므로 펭귄의 종과 발견된 섬은 유의한 관계가 있다.