Merge pull request #1 from tony-stone/check-interval-widths-checks

tony-stone · web-flow · commit 4d1558b82b2b · 2023-03-06T14:51:51.000Z
Update mcmc-intervals.R
diff --git a/R/mcmc-intervals.R b/R/mcmc-intervals.R
@@ -864,6 +864,8 @@ compute_interval_density <- function(x, interval_width = 1, n_dens = 1024,
 }
 
 check_interval_widths <- function(prob, prob_outer) {
+  if (!(is.numeric(prob) && is.numeric(prob_outer)))
+    abort("`prob` and `prob_outer` must be numeric")
   if (prob < 0 || prob > 1 || prob_outer < 0 || prob_outer > 1)
     abort("`prob` and `prob_outer` must be in [0,1].")
   if (prob_outer < prob) {

Original file line number	Diff line number	Diff line change
`@@ -864,6 +864,8 @@ compute_interval_density <- function(x, interval_width = 1, n_dens = 1024,`
`864`	`864`	`}`
`865`	`865`
`866`	`866`	`check_interval_widths <- function(prob, prob_outer) {`
	`867`	`+ if (!(is.numeric(prob) && is.numeric(prob_outer)))`
	`868`	+ abort("`prob` and `prob_outer` must be numeric")
`867`	`869`	`if (prob < 0 \|\| prob > 1 \|\| prob_outer < 0 \|\| prob_outer > 1)`
`868`	`870`	abort("`prob` and `prob_outer` must be in [0,1].")
`869`	`871`	`if (prob_outer < prob) {`