상세 컨텐츠

본문 제목

R - 아노바 분석 예제

02_Big Data

by 에스프리터 2018. 4. 23. 01:22

본문





늘은 R 환경에서 아노바 분석을 하는 예제입니다.



코드

# 세집단 평균차이 검정
#<실습> 3가지 교육방법을 적용하여 1개월동안 교육받은 교육생 세 집단간 실기 시험의 평균에 차이가 있는지 검정한다.
# 귀무 : 세집단간 실기시험 평균차이 X
# 대립 : 세집단간 실기시험 평균차이 ㅇ

data <- read.csv("testdata/three_sample.csv")
head(data)
plot(data$score)
boxplot(data$score)
mean(data$score)

#데이터 정제
length(data$score)
data2 <-subset(data, score <=14)
length(data2$score)
table(data2$method)

data2$method[data2$method1 ==1] <- "방법1"
data2$method[data2$method2 ==2] <- "방법2"
data2$method[data2$method3 ==3] <- "방법3"
table(data2$method2)

x <- table(data2$method2)
y <- tapply(data2$score, data2$method2, mean)
y

df <- data.frame(교육방법=x, 성적=y)
df

#정규성 검정
shapiro.test(data2$score) #p-value 0.1897 정규분포를 따름

#동질성 검정 : 세 집단의 등분산 검정
bartlett.test(score ~ method2, data = data2)
#p-value(0.1905 > 0.05)

install.packages("car")
library(car)
densityPlot(score ~ method2, data = data2)


2)




샘플 데이터




본 포스팅은 KIC 캠퍼스에서 박영권 강사의 지도하에 공부하며 작성한 리포트입니다.
혹시 잘못된 내용이 있거나 문제 소지시 댓글 남겨주시면 조치하겠습니다.




'02_Big Data' 카테고리의 다른 글

R - 회귀분석 예제  (0) 2018.04.30
R - 요인분석 예제  (0) 2018.04.30
R - 상관계수 분석 예제  (0) 2018.04.30
R - 아노바 분석 예제  (0) 2018.04.23
R - 세집단간 평균 분석 예제  (0) 2018.04.23
R - 두 집단간 평균 분석 예제  (0) 2018.04.23
R - 두 집단간 비율 비교  (0) 2018.04.23

태그

관련글 더보기

댓글 영역