get_gamma_specs <- function(dsp_data) {
# some temporary glue code. create gamma specs
gamma_hyper_list <- vector("list", ncol(dsp_data$U))
for (i in seq_len(ncol(dsp_data$U))) {
gamma_hyper_list[[i]] <- c(type = 0,
h = i - 1,
hyp_a = 1,
hyp_b = 1,
hyp_p = 0.5,
bnd_l = 0,
bnd_u = Inf,
mh_p = 0.1,
mh_delta = 0.1)
}
gamma_hyper_list
}
get_phi_specs <- function(dsp_data) {
c(c1 = 1, c2 = 1, delta = 0.1, mean = 1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.