init_commit

coatless · coatless · commit 6d3132e24e1c · 2016-03-03T19:27:36.000-06:00
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -0,0 +1,2 @@
+^.*\.Rproj$
+^\.Rproj\.user$
diff --git a/.gitignore b/.gitignore
@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -0,0 +1,14 @@
+Package: rc11
+Type: Package
+Title: Test C++11 with Armadillo
+Version: 1.0
+Date: 2016-03-03
+Author: Who wrote it
+Maintainer: Who to complain to <yourfault@somewhere.net>
+Description: More about what it does (maybe more than one line)
+License: What license is it under?
+LinkingTo: Rcpp,
+    RcppArmadillo
+Imports:
+    Rcpp
+RoxygenNote: 5.0.1
diff --git a/NAMESPACE b/NAMESPACE
@@ -0,0 +1,4 @@
+# Generated by roxygen2: do not edit by hand
+
+importFrom(Rcpp,sourceCpp)
+useDynLib(rc11)
diff --git a/R/RcppExports.R b/R/RcppExports.R
@@ -0,0 +1,11 @@
+# This file was generated by Rcpp::compileAttributes
+# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
+
+qexp <- function(u, lambda) {
+    .Call('rc11_qexp', PACKAGE = 'rc11', u, lambda)
+}
+
+rexp <- function(n, lambda, seed) {
+    .Call('rc11_rexp', PACKAGE = 'rc11', n, lambda, seed)
+}
+
diff --git a/R/rc11-package.r b/R/rc11-package.r
@@ -0,0 +1,7 @@
+#' rc11.
+#'
+#' @name rc11
+#' @docType package
+#' @useDynLib rc11
+#' @importFrom Rcpp sourceCpp
+NULL
diff --git a/man/rc11.Rd b/man/rc11.Rd
diff --git a/rc11.Rproj b/rc11.Rproj
@@ -0,0 +1,18 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: knitr
+LaTeX: pdfLaTeX
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source
+PackageRoxygenize: rd,collate,namespace
diff --git a/src/.gitignore b/src/.gitignore
@@ -0,0 +1,3 @@
+*.o
+*.so
+*.dll
diff --git a/src/Makevars b/src/Makevars
@@ -0,0 +1,2 @@
+PKG_LIBS = $(LAPACK_LIBS) $(BLAS_LIBS) $(FLIBS)
+CXX_STD = CXX11
diff --git a/src/Makevars.win b/src/Makevars.win
@@ -0,0 +1,2 @@
+CXX_STD = CXX11
+PKG_LIBS = $(LAPACK_LIBS) $(BLAS_LIBS) $(FLIBS)
diff --git a/src/RcppExports.cpp b/src/RcppExports.cpp
@@ -0,0 +1,33 @@
+// This file was generated by Rcpp::compileAttributes
+// Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
+
+#include <RcppArmadillo.h>
+#include <Rcpp.h>
+
+using namespace Rcpp;
+
+// qexp
+arma::vec qexp(arma::vec& u, double lambda);
+RcppExport SEXP rc11_qexp(SEXP uSEXP, SEXP lambdaSEXP) {
+BEGIN_RCPP
+    Rcpp::RObject __result;
+    Rcpp::RNGScope __rngScope;
+    Rcpp::traits::input_parameter< arma::vec& >::type u(uSEXP);
+    Rcpp::traits::input_parameter< double >::type lambda(lambdaSEXP);
+    __result = Rcpp::wrap(qexp(u, lambda));
+    return __result;
+END_RCPP
+}
+// rexp
+arma::vec rexp(unsigned int n, double lambda, const unsigned int& seed);
+RcppExport SEXP rc11_rexp(SEXP nSEXP, SEXP lambdaSEXP, SEXP seedSEXP) {
+BEGIN_RCPP
+    Rcpp::RObject __result;
+    Rcpp::RNGScope __rngScope;
+    Rcpp::traits::input_parameter< unsigned int >::type n(nSEXP);
+    Rcpp::traits::input_parameter< double >::type lambda(lambdaSEXP);
+    Rcpp::traits::input_parameter< const unsigned int& >::type seed(seedSEXP);
+    __result = Rcpp::wrap(rexp(n, lambda, seed));
+    return __result;
+END_RCPP
+}
diff --git a/src/tester.cpp b/src/tester.cpp
@@ -0,0 +1,33 @@
+#include <RcppArmadillo.h>
+#include <random>
+
+// Quantile function
+
+// [[Rcpp::export]]
+arma::vec qexp( arma::vec& u, double lambda ){
+  
+  u = arma::log(0.1e1 - u);
+  u = - u / lambda;
+  
+  return u;
+}
+
+
+// Simulate samples
+
+// [[Rcpp::export]]
+arma::vec rexp( unsigned int n, double lambda, const unsigned int& seed ){
+  
+  arma::vec u(n);
+  
+  // Generate a vector of uniform random variables
+  // std::srand(seed);
+  std::mt19937_64 engine(seed);  // Mersenne twister random number engine
+  std::uniform_real_distribution<double> distr(0.0, 1.0);
+  u.imbue( [&]() { return distr(engine); } );
+  
+  // Transform into Dagum random variables
+  qexp(u,lambda);
+  
+  return u;
+}

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+PKG_LIBS = $(LAPACK_LIBS) $(BLAS_LIBS) $(FLIBS)`
	`2`	`+CXX_STD = CXX11`