rcpp/html/loopmacro_8h_source.html

00001
00002 #define LOOPMACRO_C(name)                   \
00003 SEXP name##__loop(SEXP n_, SEXP a, SEXP b){ \
00004     int n = INTEGER(n_)[0] ;                \
00005     SEXP res  = R_NilValue ;                \
00006     for( int i=0; i<n; i++){                \
00007        res = name( a, b ) ;                 \
00008     }                                       \
00009     return res ;                            \
00010 }
00011
00012 #define LOOPMACRO_CPP(name) RcppExport LOOPMACRO_C(name)
00013