Adding week1 files from R prog