Remove check of negative posterior, does not apply posterior is prob density

GBarnsley · web-flow · commit 3c94b0a05c85 · 2021-10-19T14:48:41.000+01:00
diff --git a/R/pmcmc_utils.R b/R/pmcmc_utils.R
@@ -55,9 +55,6 @@ sample_pmcmc <- function(pmcmc_results,
     res <- pmcmc_results$results
   }
 
-  # Log Posterior must be negative and nonzero -- the later because the posterior should never be P(1)
-  assert_neg(res$log_posterior, zero_allowed = FALSE)
-
   # convert to probability by exponentiating it
   res <- unique(res)
   probs <- exp(res$log_posterior)

Original file line number	Diff line number	Diff line change
`@@ -55,9 +55,6 @@ sample_pmcmc <- function(pmcmc_results,`
`55`	`55`	`res <- pmcmc_results$results`
`56`	`56`	`}`
`57`	`57`
`58`		`- # Log Posterior must be negative and nonzero -- the later because the posterior should never be P(1)`
`59`		`- assert_neg(res$log_posterior, zero_allowed = FALSE)`
`60`		`-`
`61`	`58`	`# convert to probability by exponentiating it`
`62`	`59`	`res <- unique(res)`
`63`	`60`	`probs <- exp(res$log_posterior)`