# \donttest{
media <- c("facebook_S", "print_S", "tv_S")
hyper_names(adstock = "geometric", all_media = media)
hyperparameters <- list(
facebook_S_alphas = c(0.5, 3), # example bounds for alpha
facebook_S_gammas = c(0.3, 1), # example bounds for gamma
facebook_S_thetas = c(0, 0.3), # example bounds for theta
print_S_alphas = c(0.5, 3),
print_S_gammas = c(0.3, 1),
print_S_thetas = c(0.1, 0.4),
tv_S_alphas = c(0.5, 3),
tv_S_gammas = c(0.3, 1),
tv_S_thetas = c(0.3, 0.8)
)
# Define hyper_names for weibull adstock
hyper_names(adstock = "weibull", all_media = media)
hyperparameters <- list(
facebook_S_alphas = c(0.5, 3), # example bounds for alpha
facebook_S_gammas = c(0.3, 1), # example bounds for gamma
facebook_S_shapes = c(0.0001, 2), # example bounds for shape
facebook_S_scales = c(0, 0.1), # example bounds for scale
print_S_alphas = c(0.5, 3),
print_S_gammas = c(0.3, 1),
print_S_shapes = c(0.0001, 2),
print_S_scales = c(0, 0.1),
tv_S_alphas = c(0.5, 3),
tv_S_gammas = c(0.3, 1),
tv_S_shapes = c(0.0001, 2),
tv_S_scales = c(0, 0.1)
)
# }
Run the code above in your browser using DataLab