| 197 | inline double pentagamma(double x) { return ::Rf_pentagamma(x); } |
| 198 | |
| 199 | inline double beta(double a, double b) { return ::Rf_beta(a, b); } |
| 200 | inline double lbeta(double a, double b) { return ::Rf_lbeta(a, b); } |
| 201 | |
| 202 | inline double choose(double n, double k) { return ::Rf_choose(n, k); } |