Create week8.r

new R file