Trying to export new likelihood function

jameshay218 · Jan 25, 2024 · 2ed0912 · 2ed0912
1 parent 18fdec2
commit 2ed0912
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/R/RcppExports.R b/R/RcppExports.R
@@ -38,6 +38,7 @@ pred_age_since_inf_symptomatic <- function(max_incu_period, max_sampling_delay,
     .Call('_virosolver_pred_age_since_inf_symptomatic', PACKAGE = 'virosolver', max_incu_period, max_sampling_delay, obs_time, pars, prob_infection, sd_mod_vec)
 }
 
+#' @export
 likelihood_kinetics_model <- function(obs, ages, pars, test_ages, sd_mod_vec) {
     .Call('_virosolver_likelihood_kinetics_model', PACKAGE = 'virosolver', obs, ages, pars, test_ages, sd_mod_vec)
 }

diff --git a/src/likelihoods_cpp.cpp b/src/likelihoods_cpp.cpp
@@ -526,7 +526,7 @@ NumericVector pred_age_since_inf_symptomatic(int max_incu_period,
 
 
 
-
+//' @export
 // [[Rcpp::export]]
 NumericVector likelihood_kinetics_model(NumericVector obs,
                                 NumericVector ages,