data(SBM_net)
# \donttest{
# plot with max of two layers
SBM_netcomm <- hms(
input_net = SBM_net,
spins = 4,
alpha = 0,
coolfact = 0.90,
tol = 0.05,
max_layers = 2
)
community_plot(SBM_netcomm)
# }
# \donttest{
# plot with three layers
# don't run automatically on CRAN; > 5 seconds
SBM_netcomm <- hms(
input_net = SBM_net,
spins = 4,
alpha = 0,
coolfact = 0.90,
tol = 0.05,
max_layers = 3
)
community_plot(SBM_netcomm)
# }
Run the code above in your browser using DataLab