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'))