[[Rcpp::export]]
| 108 | |
| 109 | // [[Rcpp::export]] |
| 110 | List runit_pcauchy( NumericVector xx, double loc, double scl){ |
| 111 | return List::create( |
| 112 | _["lowerNoLog"] = pcauchy(xx, loc, scl ), |
| 113 | _["lowerLog"] = pcauchy(xx, loc, scl, true, true ), |
| 114 | _["upperNoLog"] = pcauchy(xx, loc, scl, false ), |
| 115 | _["upperLog"] = pcauchy(xx, loc, scl, false, true ) |
| 116 | ); |
| 117 | } |
| 118 | |
| 119 | // [[Rcpp::export]] |
| 120 | List runit_punif( NumericVector xx ){ |