#
# COMMENTS: BASIC INTRODUCTION TO REGRESSION USING R
#
#
# WILLIAMS P 572 #1
#
# GET DATA
x<-c(1,2,3,4,5)
y<-c(3,7,5,11,14)
# PLOT DATA
plot(x,y)
reg1 <- lm(y~x) # COMPUTE REGRESSION ESTIMATES
summary(reg1) # PRINT OUTPUT
abline(reg1) # PLOT REGRESSION LINE
#
# SCHAUM'S P. 274 #14.2
#
#GET DATA
x<-c(20,16,34,23,27,32,18,22)
y<-c(64,61,84,70,88,92,72,77)
plot(x,y) #PLOT DATA
reg1 <- lm(y~x) # COMPUTE REGRESSION ESTIMATES
summary(reg1) # PRINT OUTPUT
abline(reg1) # PLOT REGRESSION LINE