Make setseedGSL non-user-level

NIEHS · Mar 15, 2024 · c28576c · c28576c
1 parent c27c423
commit c28576c
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/R/RcppExports.R b/R/RcppExports.R
@@ -37,7 +37,7 @@
     .Call(`_ToxicR_polyk`, dose, tumor, daysOnStudy)
 }
 
-setseedGSL <- function(s) {
+.setseedGSL <- function(s) {
     invisible(.Call(`_ToxicR_setseedGSL`, s))
 }
 

diff --git a/R/continuous_wrappers.R b/R/continuous_wrappers.R
@@ -114,7 +114,7 @@ single_continuous_fit <- function(D,Y,model_type="hill", fit_type = "laplace",
                                    alpha = 0.05, samples = 25000, degree=2,
                                    burnin = 1000, BMD_priors = FALSE, ewald = FALSE,
                                    transform = FALSE, BMD_TYPE = NA, threads = 2, seed = 12331){
-    setseedGSL(seed)
+    .setseedGSL(seed)
     Y <- as.matrix(Y) 
     D <- as.matrix(D) 
 

diff --git a/R/dichotomous_wrappers.R b/R/dichotomous_wrappers.R
@@ -57,7 +57,7 @@ single_dichotomous_fit <- function(D, Y, N, model_type, fit_type = "laplace",
                                    prior = NULL, BMR = 0.1,
                                    alpha = 0.05, degree = 2, samples = 21000,
                                    burnin = 1000, threads=2, seed = 12331) {
-  setseedGSL(seed)
+  .setseedGSL(seed)
   Y <- as.matrix(Y)
   D <- as.matrix(D)
   N <- as.matrix(N)

diff --git a/src/main_seeder.cpp b/src/main_seeder.cpp
@@ -6,7 +6,7 @@ Seeder* Seeder::instance = nullptr;
 // function: setseedGSL
 // purpose: takes an integer value and sets the GSL seed
 // output: none
-// [[Rcpp::export("setseedGSL")]]
+// [[Rcpp::export(".setseedGSL")]]
 void setseedGSL(int s) {
   Seeder* seeder = Seeder::getInstance();
   seeder->setSeed(s);