p1 <- prior_weightfunction("one-sided", parameters = list(steps = c(.05, .10), alpha = c(1, 1, 1)))
# the prior distribution can be visualized using the plot function
# (see ?plot.prior for all options)
plot(p1)
Run the code above in your browser using DataLab