Added R Example