Runif (runifdouble)

Wraps R.runif for correct input and output.

   double runifdouble()
   {   Rcpp::NumericVector x = runif(1);
       return x(0);
   }