pieRange.R

library("qgraph")
library("bootnet")

# Number of nodes:
nNode <- 10

# Make a list with intervals:
intervals <- replicate(nNode,sort(runif(2,0.5,1)),simplify = FALSE)

# Rescale intervals so they represent difference:
pieList <- lapply(intervals,function(x)diff(c(0,x)))

# Colors:
col <- c(0.95,0.2)
pieColors <- replicate(nNode, rgb(col,col,col), simplify = FALSE)

# Some network:
net <- genGGM(nNode, p = 0.4, nei = 2)

# Plot:
layout(1)
qgraph(net, pie = pieList, pieColor = pieColors, layout = "spring",
       vsize = 15, pieBorder = 0.25)