## Animations generated in R version 3.5.2 (2018-12-20) using the package animation
library(animation)
library(Cascade)
POS <- position(net, nv = list_nv[1])
for (i in list_nv) {
    if (fix == TRUE) {
        plot(Omega, nv = i, gr = gr, ini = POS, color.vertex = color.vertex, 
            label_v = label_v, legend.position = legend.position, 
            frame.color = frame.color, label.hub = label.hub)
    }
    else {
        plot(Omega, nv = i, gr = gr, color.vertex = color.vertex, 
            label_v = label_v, legend.position = legend.position, 
            frame.color = frame.color, label.hub = label.hub)
    }
    text(-1, 1, round(i, 3))
}
## R version 3.5.2 (2018-12-20)
## Platform: x86_64-apple-darwin15.6.0 (64-bit)
## Other packages: animation 2.6, Cascade 1.6