remaining sugar rng tests

Author: eddelbuettel

ChangeLog

@@ -1,12 +1,11 @@
 2016-07-24  Dirk Eddelbuettel  <edd@debian.org>
 
-        * inst/unitTests/cpp/rmath.cpp: More RNG unit tests for sugar variants
-        * inst/unitTests/runit.rmath.R: idem
+        * inst/unitTests/cpp/rmath.cpp: Added RNG unit tests for sugar variants
+        * inst/unitTests/runit.rmath.R: Idem
 
 2016-07-22  James J Balamuta  <balamut2@illinois.edu>
 
-        * inst/unitTests/cpp/rmath.cpp: Added unit test functions for Rmath
-        random number generators.
+        * inst/unitTests/cpp/rmath.cpp: Added unit tests for Rmath RNGs
         * inst/unitTests/runit.rmath.R: idem
         * inst/include/Rcpp/Environment.h: Added get() & find() that accept
         a symbol

inst/unitTests/cpp/rmath.cpp

@@ -179,15 +179,19 @@ NumericVector runit_qlnorm( double x, double a, double b ){
 }
 
 // [[Rcpp::export]]
-NumericVector runit_rlnorm( double a, double b ){
+NumericVector runit_rlnorm(double a, double b) {
     NumericVector o(5);
-    
-    for(int i = 0; i < o.size(); i++)
+    for (int i = 0; i < o.size(); i++) {
         o[i] = R::rlnorm(a, b);
-    
+    }
     return o;
 }
 
+// [[Rcpp::export]]
+NumericVector runit_rlnorm_sugar(double a, double b) {
+    return Rcpp::rlnorm(5, a, b);
+}
+
 // ------------------- Chi-Squared Distribution
 
 // [[Rcpp::export]]
@@ -208,15 +212,19 @@ NumericVector runit_qchisq( double x, double a ){
 }
 
 // [[Rcpp::export]]
-NumericVector runit_rchisq( double a ){
+NumericVector runit_rchisq(double a) {
     NumericVector o(5);
-    
-    for(int i = 0; i < o.size(); i++)
+    for (int i = 0; i < o.size(); i++) {
         o[i] = R::rchisq(a);
-    
+    }
     return o;
 }
 
+// [[Rcpp::export]]
+NumericVector runit_rchisq_sugar(double a) {
+    return Rcpp::rchisq(5, a);
+}
+
 // ------------------- Non-central Chi-Squared Distribution
 
 // [[Rcpp::export]]
@@ -256,15 +264,19 @@ NumericVector runit_qf( double x, double a, double b ){
 }
 
 // [[Rcpp::export]]
-NumericVector runit_rf( double a, double b ){
+NumericVector runit_rf(double a, double b) {
     NumericVector o(5);
-    
-    for(int i = 0; i < o.size(); i++)
+    for (int i = 0; i < o.size(); i++) {
         o[i] = R::rf(a, b);
-    
+    }
     return o;
 }
 
+// [[Rcpp::export]]
+NumericVector runit_rf_sugar(double a, double b) {
+    return Rcpp::rf(5, a, b);
+}
+
 // -------------------  Student t Distribution
 
 // [[Rcpp::export]]
@@ -285,15 +297,19 @@ NumericVector runit_qt( double x, double a ){
 }
 
 // [[Rcpp::export]]
-NumericVector runit_rt( double a ){
+NumericVector runit_rt(double a) {
     NumericVector o(5);
-    
-    for(int i = 0; i < o.size(); i++)
+    for(int i = 0; i < o.size(); i++) {
         o[i] = R::rt(a);
-    
+    }
     return o;
 }
 
+// [[Rcpp::export]]
+NumericVector runit_rt_sugar(double a) {
+    return Rcpp::rt(5, a);
+}
+
 // -------------------  Binomial Distribution
 
 // [[Rcpp::export]]
@@ -314,15 +330,19 @@ NumericVector runit_qbinom( double x, double a, double b ){
 }
 
 // [[Rcpp::export]]
-NumericVector runit_rbinom( double a, double b ){
+NumericVector runit_rbinom(double a, double b) {
     NumericVector o(5);
-    
-    for(int i = 0; i < o.size(); i++)
+    for(int i = 0; i < o.size(); i++) {
         o[i] = R::rbinom(a, b);
-    
+    }
     return o;
 }
 
+// [[Rcpp::export]]
+NumericVector runit_rbinom_sugar(double a, double b) {
+    return Rcpp::rbinom(5, a, b);
+}
+
 // -------------------  Cauchy Distribution
 
 // [[Rcpp::export]]
@@ -343,15 +363,19 @@ NumericVector runit_qcauchy( double x, double a, double b ){
 }
 
 // [[Rcpp::export]]
-NumericVector runit_rcauchy( double a, double b ){
+NumericVector runit_rcauchy(double a, double b) {
     NumericVector o(5);
-    
-    for(int i = 0; i < o.size(); i++)
+    for(int i = 0; i < o.size(); i++) {
         o[i] = R::rcauchy(a, b);
-    
+    }
     return o;
 }
 
+// [[Rcpp::export]]
+NumericVector runit_rcauchy_sugar(double a, double b) {
+    return Rcpp::rcauchy(5, a, b);
+}
+
 // -------------------  Exponential Distribution
 
 // [[Rcpp::export]]
@@ -372,15 +396,19 @@ NumericVector runit_qexp( double x, double a ){
 }
 
 // [[Rcpp::export]]
-NumericVector runit_rexp( double a ){
+NumericVector runit_rexp(double a) {
     NumericVector o(5);
-    
-    for(int i = 0; i < o.size(); i++)
+    for(int i = 0; i < o.size(); i++) {
         o[i] = R::rexp(a);
-    
+    }
     return o;
 }
 
+// [[Rcpp::export]]
+NumericVector runit_rexp_sugar(double a) {
+    return Rcpp::rexp(5, a);
+}
+
 // -------------------  Geometric Distribution
 
 // [[Rcpp::export]]
@@ -401,15 +429,19 @@ NumericVector runit_qgeom( double x, double a ){
 }
 
 // [[Rcpp::export]]
-NumericVector runit_rgeom( double a ){
+NumericVector runit_rgeom(double a) {
     NumericVector o(5);
-    
-    for(int i = 0; i < o.size(); i++)
+    for (int i = 0; i < o.size(); i++) {
         o[i] = R::rgeom(a);
-    
+    }
     return o;
 }
 
+// [[Rcpp::export]]
+NumericVector runit_rgeom_sugar(double a) {
+    return Rcpp::rgeom(5, a);
+}
+
 // -------------------  Hypergeometric Distribution
 
 // [[Rcpp::export]]
@@ -430,15 +462,19 @@ NumericVector runit_qhyper( double x, double a, double b, double c ){
 }
 
 // [[Rcpp::export]]
-NumericVector runit_rhyper( double a, double b, double c ){
+NumericVector runit_rhyper(double a, double b, double c) {
     NumericVector o(5);
-    
-    for(int i = 0; i < o.size(); i++)
+    for(int i = 0; i < o.size(); i++) {
         o[i] = R::rhyper(a, b, c);
-    
+    }
     return o;
 }
 
+// [[Rcpp::export]]
+NumericVector runit_rhyper_sugar(double a, double b, double c) {
+    return Rcpp::rhyper(5, a, b, c);
+}
+
 // -------------------  Negative Binomial Distribution
 
 // [[Rcpp::export]]
@@ -459,15 +495,19 @@ NumericVector runit_qnbinom( double x, double a, double b ){
 }
 
 // [[Rcpp::export]]
-NumericVector runit_rnbinom( double a, double b){
+NumericVector runit_rnbinom(double a, double b) {
     NumericVector o(5);
-    
-    for(int i = 0; i < o.size(); i++)
+    for(int i = 0; i < o.size(); i++) {
         o[i] = R::rnbinom(a, b);
-    
+    }
     return o;
 }
 
+// [[Rcpp::export]]
+NumericVector runit_rnbinom_sugar(double a, double b) {
+    return Rcpp::rnbinom(5, a, b);
+}
+
 // -------------------  Poisson Distribution
 
 // [[Rcpp::export]]
@@ -488,15 +528,19 @@ NumericVector runit_qpois( double x, double a ){
 }
 
 // [[Rcpp::export]]
-NumericVector runit_rpois( double a ){
+NumericVector runit_rpois(double a) {
     NumericVector o(5);
-    
-    for(int i = 0; i < o.size(); i++)
+    for(int i = 0; i < o.size(); i++) {
         o[i] = R::rpois(a);
-    
+    }
     return o;
 }
 
+// [[Rcpp::export]]
+NumericVector runit_rpois_sugar(double a) {
+    return Rcpp::rpois(5, a);
+}
+
 // -------------------  Weibull Distribution
 
 // [[Rcpp::export]]
@@ -517,15 +561,19 @@ NumericVector runit_qweibull( double x, double a, double b ){
 }
 
 // [[Rcpp::export]]
-NumericVector runit_rweibull( double a, double b ){
+NumericVector runit_rweibull(double a, double b) {
     NumericVector o(5);
-    
-    for(int i = 0; i < o.size(); i++)
+    for(int i = 0; i < o.size(); i++) {
         o[i] = R::rweibull(a, b);
-    
+    }
     return o;
 }
 
+// [[Rcpp::export]]
+NumericVector runit_rweibull_sugar(double a, double b) {
+    return Rcpp::rweibull(5, a, b);
+}
+
 // -------------------  Logistic Distribution
 
 // [[Rcpp::export]]
@@ -546,15 +594,19 @@ NumericVector runit_qlogis( double x, double a, double b ){
 }
 
 // [[Rcpp::export]]
-NumericVector runit_rlogis( double a, double b ){
+NumericVector runit_rlogis(double a, double b) {
     NumericVector o(5);
-    
-    for(int i = 0; i < o.size(); i++)
+    for(int i = 0; i < o.size(); i++) {
         o[i] = R::rlogis(a, b);
-    
+    }
     return o;
 }
 
+// [[Rcpp::export]]
+NumericVector runit_rlogis_sugar(double a, double b) {
+    return Rcpp::rlogis(5, a, b);
+}
+
 // -------------------  Non-central Beta Distribution
 
 // [[Rcpp::export]]
@@ -632,11 +684,15 @@ NumericVector runit_qwilcox( double x, double a, double b ){
 }
 
 // [[Rcpp::export]]
-NumericVector runit_rwilcox( double a, double b ){
+NumericVector runit_rwilcox(double a, double b) {
     NumericVector o(5);
-    
-    for(int i = 0; i < o.size(); i++)
+    for (int i = 0; i < o.size(); i++) {
         o[i] = R::rwilcox(a, b);
-    
+    }
     return o;
 }
+
+// [[Rcpp::export]]
+NumericVector runit_rwilcox_sugar(double a, double b) {
+    return Rcpp::rwilcox(5, a, b);
+}