fix errors

easystats · Sep 6, 2024 · 4db6d99 · 4db6d99
1 parent 4ade75a
commit 4db6d99
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/describe_posterior.R b/R/describe_posterior.R
@@ -597,7 +597,7 @@ describe_posterior.data.frame <- function(posterior,
     cl$posterior <- x_rvar
     cl$rvar_col <- NULL
     prior_rvar <- .possibly_extract_rvar_col(posterior, bf_prior)
-    if (length(prior_var) > 0L) {
+    if (length(prior_rvar) > 0L) {
       cl$bf_prior <- prior_rvar
     }
     out <- eval.parent(cl)

diff --git a/R/spi.R b/R/spi.R
@@ -352,7 +352,7 @@ spi.get_predicted <- function(x, ci = 0.95, use_iterations = FALSE, verbose = TR
   }
 
   # output
-  data.frame(CI = ci, CI_low = x.l,CI_high = x.u)
+  data.frame(CI = ci, CI_low = x.l, CI_high = x.u)
 }
 
 .spi_lower <- function(bw, n.sims, k, l, dens, x) {