[[Rcpp::export]]
| 550 | |
| 551 | // [[Rcpp::export]] |
| 552 | NumericVector runit_pweibull( double x, double a, double b ){ |
| 553 | return NumericVector::create(R::pweibull(x, a, b, 1, 0), R::pweibull(log(x), a, b, 1, 1), |
| 554 | R::pweibull(x, a, b, 0, 0), R::pweibull(log(x), a, b, 0, 1)); |
| 555 | } |
| 556 | |
| 557 | // [[Rcpp::export]] |
| 558 | NumericVector runit_qweibull( double x, double a, double b ){ |