Added the R files and expected output