NC 1: Academic stress - network analysis

0.0.1 phan tich thu network

library("qgraph")

## Warning: package 'qgraph' was built under R version 4.0.2

## Registered S3 methods overwritten by 'huge':
##   method    from   
##   plot.sim  BDgraph
##   print.sim BDgraph

##read data

library(foreign)
data1=read.dta('C:/Users/NCC/Dropbox/PhD/Data/Tu/Academic stress/data1.dta',  missing.type = FALSE, warn.missing.labels = TRUE)

0.0.2 view data

names(data)

## NULL

0.0.3 define for catergorical variable

my_data <- data1[, c('essa','dlht', 'mtht', 'dkht', 'clgv', 'ctdt', 'ctql', 'ctsv', 'hdpt' )]

0.1 run all packages

library("qgraph")

corMat <- cor_auto(my_data) 

Graph_pcor <- qgraph(corMat, graph = "pcor", layout = "spring")

The threshold argument can be used to remove edges that are not significant. For example:

Graph_pcor <- qgraph(corMat, graph = "pcor", layout = "spring", threshold = "bonferroni",
                     sampleSize = nrow(my_data), alpha = 0.05)