added R code file for fourth week's homework