Added assignment content and R file
Slight R code modifications