Generate the posterior predictive distribution of counts for every pairwise interaction.

predict_counts(fit = NULL, data = NULL)

Arguments

fit

Fitted model

data

Data list

Value

A data frame

Examples

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