Added R analysis file