P.S. I think it was obvious from the context that this version contained
a typo but, just in case anyone was confused, it should've looked like:
nearlyAsGoodDemo <- cxxfunction(signature(x_="integer"), plugin='Rcpp',
body='
Rcpp::IntegerVector x(x_);
return 2*x;
')
Darren