ํต๊ณ (1) ์ธ๋ค์ผํ ๋ฆฌ์คํธํ ์ธ ๊ทธ๋ฃน์ ํ๊ท ๋น๊ต # R install.packages('moonBook') require(moonBook) data(acs) acs summary(acs) str(acs) moonBook::densityplot(age~sex, data=acs) shapiro.test(acs$age[acs$sex=="Male"]) shapiro.test(acs$age[acs$sex=="Female"]) whicox.test(age-sex, data=acs) var.test(age~sex, data=acs) # ๋ฑ๋ถ์ฐ์ ํ์ธํ๊ธฐ ์ํ ๋ฐฉ๋ฒ, P0.05 ์ ๊ท๋ถํฌ!!! shapiro.test(acs$LDLC[acs$Dx=="STEMI"]) # p-value = 0.6066, P>0.05 ์ ๊ท๋ถํฌ shapiro.test(acs$LDLC[acs$.. ์ด์ 1 ๋ค์ ํฐ์คํ ๋ฆฌํด๋ฐ Developer๐ค๊ตฌ๋ ํ๊ธฐ
