pieCIexample.R

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

set.seed(1)

# Number of nodes:
nNode <- 10

# random point estimates:
pointests <- runif(nNode,0,1)

# Add a CI Range:
error <- runif(nNode,0.05,0.2)
lowerbound <- pmax(0, pointests - error)
upperbound <- pmin(1, pointests + error)

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

# Plot:
qgraph(net, layout = "spring",
       vsize = 10, 
       pieCImid = pointests,
       pieCIlower = lowerbound,
       pieCIupper = upperbound,
       pieBorder = 0.3,
       groups = sample(LETTERS[1:3],nNode,TRUE),
       legend=FALSE,
       theme = "colorblind"
)