apply, parallel, rcpp