add an example using Rcpp