add r week3 file