728x90
728x170
# 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
728x90
그리드형(광고전용)
