| 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); } |
| 203 | inline double lchoose(double n, double k) { return ::Rf_lchoose(n, k); } |
| 204 | |
| 205 | /* Bessel Functions */ |