[실습] (4-1) 단순 회귀 with R

# 회귀분석 실습 : 총광고비와 판매량

 

ads = read.csv("Advertising.csv")
str(ads)
summary(ads)
ads$market = NULL #불필요한 변수 삭제

str(ads) 출력결과

summary(ads) 출력 결과

ads$total = ads$internet+ads$newspaper+ads$tv
hist(ads$total) #요약 summary(ads$total)

히스토그램 출력 결과

#독립변수 total, 종속변수 sales : 산점도 보기
plot(ads$total, ads$sales)

 

산점도 출력 결과

#회귀분석 실행
ads.tot.reg = lm(sales ~ total, data = ads)
ads.tot.reg
#(Intercept) = 절편, total=기울기

ads.tot.reg 출력 결과

abline(4.24303, 0.04869)
summary(ads.tot.reg)

summary 결과 출력