qinwf

#!/usr/bin/r

library(inline)
library(rbenchmark)

## openMPCode example from Rcpp/examples/OpenMP/ by Dirk E.

openMPCode <- '
   // assign to C++ vector
   std::vector<double> x = Rcpp::as<std::vector< double > >(xs);