added R code file and data files for thrid week's homework