library(HypergeoMat)
library(microbenchmark)jhpq <- hypergeomPFQ_julia()
## Starting Julia ...microbenchmark(
Rcpp = hypergeomPFQ(m = 30, a = c(1, 2, 3), b = c(4, 5), x = c(0.1, 0.2, 0.3)),
Julia = jhpq(m = 30, a = c(1, 2, 3), b = c(4, 5), x = c(0.1, 0.2, 0.3)),
times = 10
)
## Unit: milliseconds
## expr min lq mean median uq max neval
## Rcpp 3171.9094 3266.6886 3386.5241 3317.9526 3531.426 3659.559 10
## Julia 339.2297 355.8744 755.2628 377.9874 438.013 3866.369 10