[[Rcpp::export]]
| 679 | |
| 680 | // [[Rcpp::export]] |
| 681 | NumericVector runit_qwilcox( double x, double a, double b ){ |
| 682 | return NumericVector::create(R::qwilcox(x, a, b, 1, 0), R::qwilcox(log(x), a, b, 1, 1), |
| 683 | R::qwilcox(x, a, b, 0, 0), R::qwilcox(log(x), a, b, 0, 1)); |
| 684 | } |
| 685 | |
| 686 | // [[Rcpp::export]] |
| 687 | NumericVector runit_rwilcox(double a, double b) { |