Added the files needed with the r script working