[[Rcpp::export]]
| 32 | |
| 33 | // [[Rcpp::export]] |
| 34 | NumericVector runit_pnorm( double x, double a, double b ){ |
| 35 | return NumericVector::create(R::pnorm(x, a, b, 1, 0), R::pnorm(log(x), a, b, 1, 1), |
| 36 | R::pnorm(x, a, b, 0, 0), R::pnorm(log(x), a, b, 0, 1)); |
| 37 | } |
| 38 | |
| 39 | // [[Rcpp::export]] |
| 40 | NumericVector runit_qnorm( double x, double a, double b ){ |