# NOT RUN {
data(war)
adj_beligerent <- war$beligerent %>% igraph::as_adj(sparse = FALSE)
sampledNet_war_nocov <- prepare_data(adj_beligerent)
sampledNet_war_withcov <- prepare_data(adj_beligerent, list(military_power = war$beligerent$power))
# }
Run the code above in your browser using DataLab