gpadata <- read.table("http://www.stat.ufl.edu/~winner/sta4210/data/CH01PR19.txt",header=F, col.names=c("gpa","act")) attach(gpadata)