if (FALSE) {
# Load the florentine marriage network
data(florentine)
# Create missing data
set.seed(14021994)
n <- dim(flomarriage[, ])[1]
missNode <- sample(1:n, 1)
flomarriage[missNode, ] <- NA
flomarriage[, missNode] <- NA
# Posterior parameter estimation:
m.flo <- bergmM(flomarriage ~ edges + kstar(2),
burn.in = 50,
aux.iters = 500,
main.iters = 1000,
gamma = 1.2,
nImp = 5)
# Posterior summaries:
summary(m.flo)
}
Run the code above in your browser using DataLab