T.Test
== Two-Sample T-Test
Data 준비
서울시 일별 평균 대기오염도 정보페이지에서 [내려받기(CSV)]를 클릭하여 자료를 내려받고 다음을 실행합니다.
1 df <- read.csv(file.choose(), fileEncoding = 'euc-kr')
2 df <- df[ grep('구$', df$측정소명), ]
3
4 dust19 <- data.frame(month = as.factor('2019.11'),
5 pm10 = df[ grep('^201911', df$측정일시) , '미세먼지.....' ])
6 dust20 <- data.frame(month = as.factor('2020.05'),
7 pm10 = df[ grep('^202005', df$측정일시) , '미세먼지.....' ])
8
9 dust = rbind(dust19, dust20)
10 summary(dust)
11 boxplot(pm10 ~ month, data=dust, col=c('brown2','deepskyblue'))