wk3 assigment R file