# NOT RUN {
N <- 20
Y <- network(N, directed = FALSE)[,]
modLSM <- lsm(Y, D = 2)
plot(modLSM, Y)
# Plot with 95% CB
plot(modLSM, Y, drawCB = TRUE)
# Plot with 99% CB
plot(modLSM, Y, drawCB = TRUE, LEVEL = .99)
# }
Run the code above in your browser using DataLab