Not usable yet. 
<code>> sat <- c(500, 550, 450, 400, 600, 650, 700, 550, 650, 550)
> hsgpa <- c(3, 3.2, 2.8, 2.5, 3.2, 3.8, 3.9, 3.8, 3.5, 3.1)
> fgpa <- c(2.8, 3, 2.8, 2.2, 3.3, 3.3, 3.5, 3.7, 3.4, 2.9)
> dat <- data.frame(sat,hsgpa,fgpa)
> dat
   sat hsgpa fgpa
1  500   3.0  2.8
2  550   3.2  3.0
3  450   2.8  2.8
4  400   2.5  2.2
5  600   3.2  3.3
6  650   3.8  3.3
7  700   3.9  3.5
8  550   3.8  3.7
9  650   3.5  3.4
10 550   3.1  2.9
> 
</code>