Added R example