[[Rcpp::export]]
| 654 | |
| 655 | // [[Rcpp::export]] |
| 656 | NumericVector runit_pnt( double x, double a, double b ){ |
| 657 | return NumericVector::create(R::pnt(x, a, b, 1, 0), R::pnt(log(x), a, b, 1, 1), |
| 658 | R::pnt(x, a, b, 0, 0), R::pnt(log(x), a, b, 0, 1)); |
| 659 | } |
| 660 | |
| 661 | // [[Rcpp::export]] |
| 662 | NumericVector runit_qnt( double x, double a, double b ){ |