remove live call to tmb and update namespace

afsc-assessments · Dec 12, 2024 · fcd0dba · fcd0dba
1 parent 756b119
commit fcd0dba
Show file tree

Hide file tree

Showing 5 changed files with 4 additions and 2 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -7,3 +7,4 @@ export(confint_Deriv)
 export(get_Breaks)
 export(refit_Growth)
 import(mgcv)
+useDynLib(growthbreaks)
diff --git a/R/refit_Growth.R b/R/refit_Growth.R
@@ -63,8 +63,8 @@ refit_Growth <- function(dat = simulated_data, breakpoints, selex = FALSE, showP
   # Now estimate everything
   map <- NULL
 
-  TMB::compile(here::here("TMB","sptlVB_Sel_Sigma.cpp"))
-  dyn.load(TMB::dynlib(here::here("TMB","sptlVB_Sel_Sigma")))
+  # TMB::compile(here::here("TMB","sptlVB_Sel_Sigma.cpp"))
+  # dyn.load(TMB::dynlib(here::here("TMB","sptlVB_Sel_Sigma")))
   model <- TMB::MakeADFun(data, parameters,  DLL="sptlVB_Sel_Sigma",silent=T,map=map)
   fit <- nlminb(
     model$par,

diff --git a/TMB/sptlVB_Sel_Sigma.cpp b/TMB/sptlVB_Sel_Sigma.cpp
@@ -1,3 +1,4 @@
+#define TMB_LIB_INIT R_init_growthbreaks
 // https://kaskr.github.io/adcomp/register_atomic_8cpp-example.html#a3
 // Similar to example 'adaptive_integration' using CppAD Romberg integration. REGISTER_ATOMIC is used to reduce tape size.
 #include <TMB.hpp>

diff --git a/TMB/sptlVB_Sel_Sigma.dll b/TMB/sptlVB_Sel_Sigma.dll
diff --git a/TMB/sptlVB_Sel_Sigma.o b/TMB/sptlVB_Sel_Sigma.o