단순선형회귀분석 (Simple Linear Regression) 예

# Loading CSV File

myData <- read.csv("******(경로. 주의! '\'가 아닌 '/'을 이용하여 디렉토리 구분 표시)********")

fit <- lm(hr~hum, data=myData) # relation between humidity and hour

plot(hr~hum, data=myData) # drawing plot

abline(fit, col="red") # drawing line

summary(fit) # showing summary