# \donttest{
# Fit model
data(YX_nrm)
fit <- ame(YX_nrm$Y, Xdyad = YX_nrm$X, R = 2,
nscan = 100, burn = 10, odens = 1, verbose = FALSE)
# Point predictions
Y_pred <- predict(fit)
# Predictions on link scale
Y_link <- predict(fit, type = "link")
# }
Run the code above in your browser using DataLab