## Not run:
# data(Firefighters)
#
# # mediation analysis
# result <- jzs_med(Firefighters$x,Firefighters$y,Firefighters$m)
# result
#
# ### Note that the Bayes factor is 1.96, instead of 1.94 as reported
# ### in the paper (Nuijten et al., 2014).
# ### This is caused by rounding differences; the posterior probabilities are equal.
#
# # underlying mediational model with path weights and posterior probabilities
# plot(result$main_result)
#
# # posterior distribution of indirect effect "ab" incl 95% credible interval
# plot(result$ab_samples)
# ## End(Not run)
Run the code above in your browser using DataLab