상세 컨텐츠

본문 제목

R - 단순회귀 분석 예제

02_Big Data

by 에스프리터 2018. 4. 30. 00:38

본문



이번에 배울 것은 회귀 분석 예제입니다.
가설을 세우고 회귀 분석을 통해 가설이 검증되었는지, 혹은 기각되었는지 확인하는 예제입니다.


코드

# 단순회귀분석

result <- read.csv("testdata/drinking_water.csv")
head(result)
#귀무 : 제품의 가격수준을 결정하는 적절성은 만족도에 영향이 없다.
#연구 : 제품의 가격수준을 결정하는 적절성은 만족도에 영향이 있다.
x <- result$적절성
y <- result$만족도

df <- data.frame(x, y)
df

# 단순 선형회귀 모델 작성
model <- lm(formula = y ~ x, data = df)
model <- lm(y ~ x, data = df)
model

plot(y ~ x)
abline(model, col="red")

options(scipen = 999)
summary(model)
# p-value < 0.05 연구가설 채택
#제품의 가격수준을 결정하는 적절성은 만족도에 영향이 있다.

#y = 0.77886 + 0.73928 * x
0.77886 + 0.73928 * 10  
#적절성이 10이라면 만족도는 8.17166라고 예측

plot(jitter(y, 5) ~ jitter(x, 5), data=df)
sunflowerplot(df)


# iris dataset
data("iris")
head(iris, 3)
names(iris)
cor(iris$Sepal.Length, iris$Sepal.Width)  #음의 상관
cor(iris$Sepal.Length, iris$Petal.Length) #양의 상관

# 선형회귀 모델
model <- lm(Sepal.Length ~ Sepal.Width, data = iris)
model
summary(model)  # 설명력 1.3%

model2 <- lm(Sepal.Length ~ Petal.Length, data = iris)
model2
summary(model2) # 설명력 76%


샘플 데이터




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







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

R - 로지스틱 회귀분석 #2  (0) 2018.05.08
R - 로지스틱 회귀분석 #1  (0) 2018.05.08
R - 다중 회귀분석 예제  (0) 2018.04.30
R - 단순회귀 분석 예제  (0) 2018.04.30
R - 회귀분석 조건 예제  (0) 2018.04.30
R - 회귀분석 예제  (0) 2018.04.30
R - 요인분석 예제  (0) 2018.04.30

태그

관련글 더보기

댓글 영역