R example added
R example added