[[Rcpp::export]]
| 561 | |
| 562 | // [[Rcpp::export]] |
| 563 | List runit_lchoose( NumericVector nn, NumericVector kk){ |
| 564 | return List::create( |
| 565 | _["VV"] = lchoose(nn,kk), |
| 566 | _["PV"] = lchoose(10.0, kk ), |
| 567 | _["VP"] = lchoose(nn, 5.0 ) |
| 568 | ) ; |
| 569 | } |
| 570 | |
| 571 | // [[Rcpp::export]] |
| 572 | List runit_beta( NumericVector nn, NumericVector kk){ |