@@ -17,7 +17,8 @@ Imports:

     gtable,

     stats,

     grDevices,

-    graphics

+    graphics,

+    Rmpfr

 Suggests:

     testthat,

     knitr,

@@ -3,6 +3,7 @@

 export(cC.calcLLFromVariables)

 export(cCG.calcLLFromVariables)

 export(cCG.generateCells)

+export(calculate_marginal_likelihood)

 export(celda)

 export(celda_C)

 export(celda_CG)

@@ -7,7 +7,7 @@

 #' @return The estimated marginal likelihood

 #' @export

 calculate_marginal_likelihood = function(completeLogLik) {

-  mpfr_log_lik = mpfr(completeLogLik, 512)

+  mpfr_log_lik = Rmpfr::mpfr(completeLogLik, 512)

   complete_likelihood = exp(mpfr_log_lik)

   marginal_likelihood = mean(complete_likelihood)

   return(marginal_likelihood)