[[Rcpp::export]]
| 168 | |
| 169 | // [[Rcpp::export]] |
| 170 | NumericVector runit_plnorm( double x, double a, double b ){ |
| 171 | return NumericVector::create(R::plnorm(x, a, b, 1, 0), R::plnorm(log(x), a, b, 1, 1), |
| 172 | R::plnorm(x, a, b, 0, 0), R::plnorm(log(x), a, b, 0, 1)); |
| 173 | } |
| 174 | |
| 175 | // [[Rcpp::export]] |
| 176 | NumericVector runit_qlnorm( double x, double a, double b ){ |