Poner cuantiles de 96%

cotecora-team-2 · Mar 27, 2024 · e9bf6a6 · e9bf6a6
1 parent eb7d5d3
commit e9bf6a6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/hb_estimation.R b/R/hb_estimation.R
@@ -113,7 +113,7 @@ hb_estimation <- function(data_tbl, stratum, id_station, sampling_frame, parties
   output$inv_metric <- fit$inv_metric()[[1]] |> diag()
   estimates_tbl <- NULL
   estimates_tbl <- fit$summary(variables = c("prop_votos", "participacion"),
-                               ~ quantile(.x, probs = c(0.025, 0.5, 0.975)),
+                               ~ quantile(.x, probs = c(0.03, 0.5, 0.97)),
                                rhat = ~ posterior::rhat(.x),
                                ess = ~ posterior::ess_basic(.x))
   names(estimates_tbl) <- c("party", "inf", "median", "sup", "rhat", "ess")