1 
2 #define LOOPMACRO_C(name)                   \
3 SEXP name##__loop(SEXP n_, SEXP a, SEXP b){ \
4     int n = INTEGER(n_)[0] ;                \
5     SEXP res  = R_NilValue ;                \
6     for( int i=0; i<n; i++){                \
7        res = name( a, b ) ;                 \
8     }                                       \
9     return res ;                            \
10 }
11 
12 #define LOOPMACRO_CPP(name) RcppExport LOOPMACRO_C(name)
13 
14