C in Rcpp

c2rcpp.cpp

#include <Rcpp.h>
using namespace Rcpp;

// C code with Rcpp; basic example

// [[Rcpp::export]]
extern "C" SEXP rngScopeCppScalar() {

  NumericVector x(4);

  RNGScope rngScope;

  x[0] = R::runif(0,1);
  x[1] = R::rnorm(0,1);
  x[2] = R::rt(5);
  x[3] = R::rbeta(1,1);

  return wrap(x);
}


// [[Rcpp::export]]
RcppExport SEXP helloB2() {
  Rcpp::StringVector result(1);
  result[0] = "Hello World!";
  return(result);
}