Added R Scripts and comments