example_model <- example_powerscale_model()
draws <- example_model$draws
log_prior <- log_prior_draws(draws, joint = TRUE)
posterior::summarise_draws(
posterior::subset_draws(draws, variable = c("mu", "sigma")),
mean,
mean_sens = ~powerscale_derivative(.x, log_prior, quantity = "mean")
)
Run the code above in your browser using DataLab