상세 컨텐츠

본문 제목

R - 회귀분석 예제

02_Big Data

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

본문





이번에 배울 것은 회귀 분석 예제입니다.
회귀 분석은 기존 통계 분석을 결과로 어떠한 현상의 경향성을 추측하는 분석입니다. 회귀 분석을 통해 100% 까진 아니더라도 현실을 설명하고 미래를 간략하게 나마 예측할 수 있습니다.


코드

#회귀분석 : 어떤 값을 기준으로 다른 결과값을 예측
#단순회귀 : 일변수 일차방정식
#판매량y = 30 + 10 * (판촉행사횟수)
#y=b0 + b1*x
#최소자승법을 이용해 b1(기울기)를 구할 수 있다.
#기울기를 이용해 b0(절편을 구할 수 있다.
#부모의 IQ : 110,120,130,140,150
#자녀의 IQ : 100,105,128,115,142
x <- c(110,120,130,140,150)
y <- c(100,105,128,115,142)
mean(x)
mean(y)
x - mean(x)
y - mean(y)
(x - mean(x)) ** 2

#b1 을 구할 수 있다  0.94
y = b0 + b1x
b0 = y - b1x
118 - 0.75 * 130
b0 = 118 - 0.94 * 130  #==> -4.2
y = -4.2 + 0.94 * 145
y

#R을 이용한 단순회귀분석
x <- c(110,120,130,140,150)
y <- c(100,105,128,115,142)
cor(x,y)  #r:0.8660744 양의 상관
plot(x,y)
help(lm)
line <- lm(y ~ x)
line
abline(line, col='blue')
#y = -4.2 + 0.94 * x

df <- data.frame(workhour=1:7,
                 totalpay=seq(10000, 70000, by=10000))
df
plot(totalpay ~ workhour, data=df, col='red', pch=20)

abc <- lm(totalpay ~ workhour, data=df)
abc
grid()
abline(abc, col="blue", lwd = 1)
plot(abc, which=c(4, 6))



샘플 데이터






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






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

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
R - 상관계수 분석 예제  (0) 2018.04.30
R - 아노바 분석 예제  (0) 2018.04.23

태그

관련글 더보기

댓글 영역