# create a spike and slab prior distribution
p1 <- prior_spike_and_slab(
prior(distribution = "normal", parameters = list(mean = 0, sd = 1)),
prior_inclusion = prior(distribution = "beta", parameters = list(alpha = 1, beta = 1))
)
Run the code above in your browser using DataLab