metalog_priors.R

library(tidybayes)
library(ggplot2)
library(hrbrthemes)
m <- 100
s <- 10

dist_df <- tibble::tibble(y=seq.int(0.01,0.99, by=0.05), 
			  arg1_mean=qlnorm(p=y,meanlog=log(m), sdlog=log(s)),
			  arg2_sd=abs(0.5-y+0.1)*400+100)


ggplot(dist_df)+
	geom_line(aes(x=arg1_mean, y=y), color="darkred")+
	stat_dist_slabh(aes(dist="norm", arg1=arg1_mean, arg2=arg2_sd, y=y))+
	theme_ipsum_rc(grid_col="grey95")

ggsave("metalog_prior.png", width = 5, height = 5)