Add example in R