[[Rcpp::export]]
| 446 | |
| 447 | // [[Rcpp::export]] |
| 448 | NumericVector runit_dhyper( double x, double a, double b, double c ){ |
| 449 | return NumericVector::create(R::dhyper(x, a, b, c, 0), R::dhyper(x, a, b, c, 1)); |
| 450 | } |
| 451 | |
| 452 | // [[Rcpp::export]] |
| 453 | NumericVector runit_phyper( double x, double a, double b, double c ){ |