[[Rcpp::export]]
| 292 | |
| 293 | // [[Rcpp::export]] |
| 294 | NumericVector runit_qt( double x, double a ){ |
| 295 | return NumericVector::create(R::qt(x, a, 1, 0), R::qt(log(x), a, 1, 1), |
| 296 | R::qt(x, a, 0, 0), R::qt(log(x), a, 0, 1)); |
| 297 | } |
| 298 | |
| 299 | // [[Rcpp::export]] |
| 300 | NumericVector runit_rt(double a) { |