I’m trying to set priors for my model in r, can someone help me how to go about this? I’m investigating effects of socio environmental factors on dog bites in some 17 villages
prior <-c(
set_prior("normal(1020, 100)", class = "b", lb = 0, ub = 5200, coef = "Annual_precipitation"),
set_prior("normal(21, 2)", class = "b", lb = 0, ub = 30, coef = "Average_altitude"),
set_prior("normal(1290, 120)", class = "b", lb = 0, ub = 2000, coef = "Mean_annual_Temperature"),
set_prior("normal(0.07, 0.007)", class = "b", lb = 0, ub = 0.5, coef = "forest_percentage"),
set_prior("normal(0.15, 0.015)", class = "b", lb = 0, ub = 0.5, coef = "savannah_percentage"),
set_prior("normal(29, 3)", class = "b", lb = 0, ub = 100, coef = "Urbanization_index"),
set_prior("normal(36, 3)", class = "b", lb = 0, ub = 100, coef = "Poverty_percentage"),
set_prior("normal(84, 8)", class = "b", lb = 0, ub = 100, coef = "Literacy"),
set_prior("normal(74, 7)", class = "b", lb = 0, ub = 100, coef = "Sanitation"),
set_prior("student_t(3, 23, 23.7)", class = "Intercept")
)
brmformula<-Incidence ~ Average_altitude + Mean_annual_Temperature+Annual_precipitation+
forest_percentage + savannah_percentage+Urbanization_index +Poverty_percentage+
Literacy + Sanitation
brm_model<-brms::brm(brmformula,
data = data,
family = poisson(),
prior= prior,
chains = 4, iter = 30000, warmup = 15000)
randomdata.csv (1.9 KB)