[[Rcpp::export]]
| 201 | |
| 202 | // [[Rcpp::export]] |
| 203 | NumericVector runit_pchisq( double x, double a ){ |
| 204 | return NumericVector::create(R::pchisq(x, a, 1, 0), R::pchisq(log(x), a, 1, 1), |
| 205 | R::pchisq(x, a, 0, 0), R::pchisq(log(x), a, 0, 1)); |
| 206 | } |
| 207 | |
| 208 | // [[Rcpp::export]] |
| 209 | NumericVector runit_qchisq( double x, double a ){ |