회귀분석 - lm

lm(mpg~hp, data=mtcars)

# y = ax + b

# intercept가 a

# hp가 b

# 즉, y = 30.09 - 0.06x

DF<-data.frame(Work_hour=1:7, Total_pay=seq(10000, 70000, by=10000))

# Work_hour = X 변수 ; Total_pay = Y 변수

plot(Total_pay ~ Work_hour, data=DF, pch=20, col="red") # pch는 점 모양

grid()

LR<-lm(Total_pay ~ Work_hour, data=DF) # 종속~독립변수

mode(LR)

names(LR)

grid()

abline(LR, col="blue", lwd=2) # lwd는 선 굵기