#

# 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