[[Rcpp::export]]
| 158 | |
| 159 | // [[Rcpp::export]] |
| 160 | List runit_pnchisq( NumericVector xx ){ |
| 161 | return List::create( |
| 162 | _["lowerNoLog"] = pnchisq( xx, 6.0, 2.5, true ), |
| 163 | _["lowerLog"] = pnchisq( xx, 6.0, 2.5, true, true ), |
| 164 | _["upperNoLog"] = pnchisq( xx, 6.0, 2.5, false ), |
| 165 | _["upperLog"] = pnchisq( xx, 6.0, 2.5, false, true ) |
| 166 | ); |
| 167 | } |
| 168 | |
| 169 | // [[Rcpp::export]] |
| 170 | List runit_pchisq( NumericVector xx){ |