[[Rcpp::export]]
| 589 | |
| 590 | // [[Rcpp::export]] |
| 591 | NumericVector runit_qlogis( double x, double a, double b ){ |
| 592 | return NumericVector::create(R::qlogis(x, a, b, 1, 0), R::qlogis(log(x), a, b, 1, 1), |
| 593 | R::qlogis(x, a, b, 0, 0), R::qlogis(log(x), a, b, 0, 1)); |
| 594 | } |
| 595 | |
| 596 | // [[Rcpp::export]] |
| 597 | NumericVector runit_rlogis(double a, double b) { |