| 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 */ |
| 206 | inline double bessel_i(double x, double al, double ex) { return ::Rf_bessel_i(x, al, ex); } |