Example Rcpp_demo.R runs now2