## ----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-tmfg-----------------------------------------------------------------
tmfg_net <- psychnet(data = SRL_GPT, method = "tmfg")
tmfg_net

## ----summarize-tmfg-----------------------------------------------------------
summary(tmfg_net)

## ----fit-logo-----------------------------------------------------------------
logo_net <- psychnet(data = SRL_GPT, method = "logo")
logo_net

## ----summarize-logo-----------------------------------------------------------
summary(logo_net)

## ----certify-tmfg-------------------------------------------------------------
certificate(tmfg_net)

## ----certify-logo-------------------------------------------------------------
certificate(logo_net)

## ----logo-centrality----------------------------------------------------------
net_centralities(logo_net)

## ----logo-predictability------------------------------------------------------
net_predict(logo_net)

## ----plot-logo, eval = has_cograph--------------------------------------------
cograph::splot(logo_net, psych_styling = TRUE, predictability = TRUE)

## ----fit-logo-spearman--------------------------------------------------------
logo_spearman <- psychnet(data = SRL_GPT, method = "logo", cor_method = "spearman")
logo_spearman

## ----summarize-logo-spearman--------------------------------------------------
summary(logo_spearman)

## ----certify-logo-spearman----------------------------------------------------
certificate(logo_spearman)