with Rcpp