[[Rcpp::export]]
| 168 | |
| 169 | // [[Rcpp::export]] |
| 170 | List runit_pchisq( NumericVector xx){ |
| 171 | return List::create( |
| 172 | _["lowerNoLog"] = pchisq( xx, 6.0 ), |
| 173 | _["lowerLog"] = pchisq( xx, 6.0, true, true ), |
| 174 | _["upperNoLog"] = pchisq( xx, 6.0, false ), |
| 175 | _["upperLog"] = pchisq( xx, 6.0, false, true ) |
| 176 | ); |
| 177 | } |
| 178 | |
| 179 | // [[Rcpp::export]] |
| 180 | List runit_pnorm( NumericVector xx ){ |