## -*- mode: poly-r+c++; -*-
require(RcppEigen)

# cxxfunction not supported
# require(inline)
## runifXd <- cxxfunction(signature(arg1="integer"), plugin='RcppEigen',
##                        includes='
## RNGScope scope;
## using namespace Eigen;

## inline VectorXd runifXd(int size, double a=0., double b=1.) {
##   return as<VectorXd>(runif(size, a, b));
## }',
##                        body='return wrap(runifXd(as<int>(arg1)));')

cppFunction('
NumericVector runifXd(int size, double a=0., double b=1.) {
  return runif(size, a, b);}', depends='RcppEigen', includes='
RNGScope scope;
using namespace Eigen;')

runifXd(3)