Updated Results
Added R Code