first try with Rcpp (I need to change all the interfaces R C++.... :-) )