[[Rcpp::export]]
| 234 | |
| 235 | // [[Rcpp::export]] |
| 236 | NumericVector runit_pnchisq( double x, double a, double b ){ |
| 237 | return NumericVector::create(R::pnchisq(x, a, b, 1, 0), R::pnchisq(log(x), a, b, 1, 1), |
| 238 | R::pnchisq(x, a, b, 0, 0), R::pnchisq(log(x), a, b, 0, 1)); |
| 239 | } |
| 240 | |
| 241 | // [[Rcpp::export]] |
| 242 | NumericVector runit_qnchisq( double x, double a, double b ){ |