R: add example