From 4db6d998e0cb8c3531a366315a15368f34a5268c Mon Sep 17 00:00:00 2001
From: "Mattan S. Ben-Shachar" <mattansb@msbstats.info>
Date: Fri, 6 Sep 2024 19:48:45 +0300
Subject: [PATCH] fix errors

---
 R/describe_posterior.R | 2 +-
 R/spi.R                | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/describe_posterior.R b/R/describe_posterior.R
index b69821755..d238c23d9 100644
--- 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
index b4baf5607..53429f90f 100644
--- 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) {