## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>", fig.width = 7, fig.height = 6)
library(psychnets)
has_cograph <- requireNamespace("cograph", quietly = TRUE)

## ----data-preview-------------------------------------------------------------
head(SRL_GPT)

## ----fit-network--------------------------------------------------------------
importance_net <- psychnet(data = SRL_GPT, method = "relimp")
importance_net

## ----summarize-network--------------------------------------------------------
summary(importance_net)

## ----decomposition-certificate------------------------------------------------
certificate(importance_net)

## ----node-predictability------------------------------------------------------
net_predict(importance_net)

## ----node-contribution--------------------------------------------------------
net_centralities(importance_net)

## ----plot-network, eval = has_cograph-----------------------------------------
cograph::splot(importance_net, directed = TRUE, edge_labels = TRUE)

## ----fit-spearman-------------------------------------------------------------
importance_spearman <- psychnet(data = SRL_GPT, method = "relimp", cor_method = "spearman")
importance_spearman

## ----summarize-spearman-------------------------------------------------------
summary(importance_spearman)

## ----predict-spearman---------------------------------------------------------
net_predict(importance_spearman)