# NOT RUN {
# BFI Extraversion data from psychTools package:
library("psychTools")
data(bfi)
bfiSub <- bfi[,1:25]
# Estimate unregularized network:
Network <- estimateNetwork(bfiSub, default = "pcor", corMethod = "cor")
# Bootstrap 1000 values, using 8 cores:
boots <- bootnet(Network, nBoots = 1000, nCores = 8)
# Threshold network:
Network_thresholded <- bootThreshold(boots)
# Plot:
plot(Network_thresholded)
# }
Run the code above in your browser using DataLab