#====================
# Figure 5.1.  Scatterplot of composite
# ACT scores and university cumulative
# grade point averages, for 90 students
# in a university introductory statistics
# course.
#====================

#--------------------
# Enter directory location of the data file GPAdata.txt between the
# quotes in the following setwd() statement.  Use forward slashes.
# Example:
# setwd("c:/MyRStuff/GPAdata.txt")
#-------------------- 
setwd(" ")
GPA.data=read.table("GPAdata.txt",header=TRUE)
attach(GPA.data)
plot(ACT,univGPA,type="p",xlab="composite ACT",
  ylab="university GPA")
detach(GPA.data)