Plot heatmap of interaction probabilities

Plot a heatmap of average interaction probabilities

plot_interaction_prob(post = NULL)

Arguments

post

Data frame containing the posterior probabilities, as generated from get_posterior().

Value

A ggplot object

Examples

if (FALSE) { # interactive()
data(web)
dt <- prepare_data(mat = web, sampl.eff = rep(20, nrow(web)))
fit <- fit_model(dt, refresh = 0)
post <- get_posterior(fit, dt)
plot_interaction_prob(post)
}