This function computes network scores for
factor analysis models. Network scores are computed based on
each node's strength
within each
community (i.e., factor) in the network. These values are used
as network "factor loadings" for the weights of each item. Notably,
network analysis allows nodes to load onto more than one factor.
These loadings are considered in the factor scores. In addition,
if the construct is a hierarchy (e.g., personality questionnaire;
items in facet scales in a trait domain), then an overall
score can be computed (see argument general
). These overall
scores are computed using comm.close
as weights, which are roughly similar to general factor loadings in a
CFA model (see Christensen, Golino, & Silvia, 2019). The score
estimates are roughly equivalent to the Maximum Likelihood method in
lavaan
's cfa
function. An important difference
is that the network scores account for cross-loadings in their
estimation of scores.
net.scores(data, A, wc, ...)
Matrix or data frame. Must be a dataset
Matrix, data frame, or EGA
object.
An adjacency matrix of network data
Numeric.
A vector of community assignments.
Not necessary if an EGA
object
is input for argument A
Additional arguments for cluster_walktrap
and louvain
community detection algorithms
Returns a list containing:
The standardized network scores for each participant and community (including the overall score)
Partial correlations between the specified or identified communities
Standardized network loadings for each item in each dimension
(computed using net.loads
)
For more details, type vignette("Network_Scores")
Christensen, A. P. (2018). NetworkToolbox: Methods and measures for brain, cognitive, and psychometric network analysis in R. The R Journal, 10, 422-439. doi: 10.32614/RJ-2018-065
Christensen, A. P., Golino, H. F., & Silvia, P. J. (2019). A psychometric network perspective on the measurement and assessment of personality traits. PsyArXiv. doi: 10.31234/osf.io/ktejp
# NOT RUN {
# Load data
wmt <- wmt2[,7:24]
# }
# NOT RUN {
# Estimate EGA
ega.wmt <- EGA(wmt)
# }
# NOT RUN {
# Network scores
net.scores(data = wmt, A = ega.wmt)
# }
Run the code above in your browser using DataLab