[[Rcpp::export]]
| 196 | |
| 197 | // [[Rcpp::export]] |
| 198 | NumericVector runit_dchisq( double x, double a ){ |
| 199 | return NumericVector::create(R::dchisq(x, a, 0), R::dchisq(x, a, 1)); |
| 200 | } |
| 201 | |
| 202 | // [[Rcpp::export]] |
| 203 | NumericVector runit_pchisq( double x, double a ){ |