Add R example