[[Rcpp::export]]
| 253 | |
| 254 | // [[Rcpp::export]] |
| 255 | NumericVector runit_pf( double x, double a, double b ){ |
| 256 | return NumericVector::create(R::pf(x, a, b, 1, 0), R::pf(log(x), a, b, 1, 1), |
| 257 | R::pf(x, a, b, 0, 0), R::pf(log(x), a, b, 0, 1)); |
| 258 | } |
| 259 | |
| 260 | // [[Rcpp::export]] |
| 261 | NumericVector runit_qf( double x, double a, double b ){ |