Creates a mixture of two Normal distributions. Since tau is a scale parameter,
this must be wrapped in distributional::dist_truncated() with lower = 0
before passing to shrink():
Examples
tau_prior <- distributional::dist_truncated(
prior_spike_slab(spike_prob = 0.5, spike_scale = 0.01, slab_scale = 1),
lower = 0
)