[[Rcpp::export]]
| 635 | |
| 636 | // [[Rcpp::export]] |
| 637 | NumericVector runit_pnf( double x, double a, double b, double c ){ |
| 638 | return NumericVector::create(R::pnf(x, a, b, c, 1, 0), R::pnf(log(x), a, b, c, 1, 1), |
| 639 | R::pnf(x, a, b, c, 0, 0), R::pnf(log(x), a, b, c, 0, 1)); |
| 640 | } |
| 641 | |
| 642 | // [[Rcpp::export]] |
| 643 | NumericVector runit_qnf( double x, double a, double b, double c ){ |