# NOT RUN {
ADOangry=rep(c(1,1,1,1,1,0,0,0,0,0),100)
MAangry=rep(c(0,0,1,1,1,1,0,0,0,0),100)
MAsad=rep(c(0,0,1,1,1,1,0,0,0,0),100)
netdata <- cbind(ADOangry,MAangry,MAsad)
netnet <- conNEcT(netdata,lag=1,conFun=funKappa,
test=TRUE,nBlox=5)
qgraph.conNEcT(netnet,signOnly=FALSE)
# }
Run the code above in your browser using DataLab