@@ -1,4 +1,5 @@

-// From several files from R package extraDistr

+// Code taken from several files from R package extraDistr

+// (shared.cpp, shared_inline.h, multivariate_hypergeometric.cpp)

 // https://github.com/twolodzko/extraDistr

 // Author: Tymoteusz Wolodzko

 // License: GPL-2

@@ -112,7 +113,8 @@ double finite_max_int(const Rcpp::NumericVector& x) {

   return max_x;

 }

-

+// Renaming of  cpp_rmvhyper in

+// https://github.com/twolodzko/extraDistr/blob/master/src/multivariate-hypergeometric-distribution.cpp

 Rcpp::NumericMatrix my_rmvhyper(

     const int nn,

     const Rcpp::NumericMatrix n,

@@ -1,3 +1,11 @@

+// Code from file shared.h in the R package extraDistr

+// https://github.com/twolodzko/extraDistr

+// https://github.com/twolodzko/extraDistr/blob/master/src/shared.h

+// Author: Tymoteusz Wolodzko

+// License: GPL-2

+// Downloaded on 2020-03-18

+

+

 #include <Rcpp.h>

 using namespace Rcpp ;

 using std::pow;

@@ -18,4 +26,4 @@ static const double MIN_DIFF_EPS = 1e-8;

 #define GETM(x, i, j)   x(i % x.nrow(), j)   // wrapped indexing of matrix

 #define VALID_PROB(p)   ((p >= 0.0) && (p <= 1.0))

-Rcpp::NumericMatrix my_rmvhyper(const int nn, const Rcpp::NumericMatrix n, const NumericVector k);

\ No newline at end of file

+Rcpp::NumericMatrix my_rmvhyper(const int nn, const Rcpp::NumericMatrix n, const NumericVector k);