# \donttest{
# Fit an AME model
data(YX_nrm)
fit <- ame(YX_nrm$Y, Xdyad = YX_nrm$X,
nscan = 100, burn = 10, odens = 1, verbose = FALSE)
# Visualize sender effects
ab_plot(fit, effect = "sender")
# Visualize receiver effects without sorting
ab_plot(fit, effect = "receiver", sorted = FALSE)
# }
Run the code above in your browser using DataLab