p1 <- prior_weightfunction(
side = "one-sided",
steps = c(.05, .10),
weights = wf_cumulative(alpha = c(1, 1, 1))
)
p2 <- prior_weightfunction(
side = "one-sided",
steps = c(.05),
weights = wf_independent(prior("beta", list(1, 1)))
)
Run the code above in your browser using DataLab