data=read.delim("exer4_74.dat",header=TRUE)

str(data)
## 'data.frame':    12 obs. of  2 variables:
##  $ STRESS: num  6.5 4 2.5 7.2 8.1 3.4 5.5 9.1 7.5 3.8 ...
##  $ EXAM  : int  81 96 93 68 63 84 71 57 70 86 ...
plot(data,
     pch=9,
     cex=1.5,
     col="blue",
     xlab="Stress Test Score",
     ylab="Math Test Score",
     main="Correlation Between Stress and Test Scores")

plot of chunk unnamed-chunk-1