temp/r-scratch.R

In ooelrich/oscbvar: Stuff for Bayesian vector autoregressions

# Debugging local gewisano

weights <- caliper_relevance_new(
    atomic_df = bikes_atom,
    sotw = subset(bikes_d_log, select = c(t, temp, hum, windspeed)),
    start_agg = 401,
    cw = 0.001,
    matching_vars = NULL
)

data <- bikes_atom
start_t <- 401
weight_df <- weights
pratig = FALSE

i <- start_t


aha <- gen_gewisano_local(
    bikes_atom,
    start_t = 401,
    weight_df = weights,
    pratig = TRUE
)

lokala_vikter <- aha[[2]]