Added R code for the scatter and xscatter matrix.