22#ifndef RCPP_SUGAR_MATH_H
23#define RCPP_SUGAR_MATH_H
55 extern "C" inline double factorial(
double x ){ return ::Rf_gammafn( x + 1.0 ) ; }
56 extern "C" inline double lfactorial(
double x ){ return ::Rf_lgammafn( x + 1.0 ) ; }
#define SUGAR_BLOCK_2(__NAME__, __SYMBOL__)
#define VECTORIZED_MATH_1(__NAME__, __SYMBOL__)
double lfactorial(double x)
double factorial(double x)