[[Rcpp::export]]
| 352 | |
| 353 | // [[Rcpp::export]] |
| 354 | NumericVector runit_pcauchy( double x, double a, double b ){ |
| 355 | return NumericVector::create(R::pcauchy(x, a, b, 1, 0), R::pcauchy(log(x), a, b, 1, 1), |
| 356 | R::pcauchy(x, a, b, 0, 0), R::pcauchy(log(x), a, b, 0, 1)); |
| 357 | } |
| 358 | |
| 359 | // [[Rcpp::export]] |
| 360 | NumericVector runit_qcauchy( double x, double a, double b ){ |