Changed Posterior to Posterior_HaldDP to match the Hald_DP model.

R/interface.R

@@ -280,7 +280,7 @@ HaldDP <- R6::R6Class(
       {
         ## create posterior if no posterior exists or if append = FALSE
         private$posterior <-
-          Posterior$new(
+          Posterior_HaldDP$new(
             nSources = private$nSources,
             nTimes = private$nTimes,
             nLocations = private$nLocations,
@@ -293,7 +293,7 @@ HaldDP <- R6::R6Class(
             namesIters = 1:private$n_iter
           )
       } else {
-        new_post <- Posterior$new(
+        new_post <- Posterior_HaldDP$new(
           nSources = private$nSources,
           nTimes = private$nTimes,
           nLocations = private$nLocations,

R/posterior.R

-Posterior = R6::R6Class(
+Posterior_HaldDP = R6::R6Class(
   "Posterior",
   public = list(
     q = NULL,