##acl +All:read
#format wiki
#language ko
#pragma description 기초의학통계학 및 실험;
= T.Test =

== Two-Sample T-Test

== Data 준비 ==
[[http://data.seoul.go.kr/dataList/OA-2218/S/1/datasetView.do|서울시 일별 평균 대기오염도 정보]]페이지에서 [내려받기(CSV)]를 클릭하여 자료를 내려받고 다음을 실행합니다.

{{{#!highlight r
df <- read.csv(file.choose(), fileEncoding = 'euc-kr')
df <- df[ grep('구$', df$측정소명), ]

dust19 <- data.frame(month = as.factor('2019.11'),
                     pm10 = df[ grep('^201911', df$측정일시) , '미세먼지.....'  ])
dust20 <- data.frame(month = as.factor('2020.05'),
                     pm10 = df[ grep('^202005', df$측정일시) , '미세먼지.....'  ])

dust = rbind(dust19, dust20)
summary(dust)
boxplot(pm10 ~ month, data=dust, col=c('brown2','deepskyblue'))

}}}