Shinyapp: Scoring and Reliability Analysis of Psychometric Network

Published

March 1, 2024

Minimal Example

Loading required package: pacman
โŒ˜+C
exp1 <- matrix(c(
  0, .8, .5,
  .8, 0, 0.1,
  .5, .1, 0
), nrow = 3, ncol = 3, byrow = T)
rownames(exp1) = colnames(exp1) = c("A", "B", "C")
qgraph::qgraph(input = exp1, edge.labels=T, edge.label.cex = 1.7, edge.label.color = "black")

The centrality measures for three nodes:

โŒ˜+C
mykbl(centrality(exp1))
node Betweenness Closeness Strength ExpectedInfluence
A 1.155 1.114 1.044 1.044
B -0.577 -0.295 -0.095 -0.095
C -0.577 -0.819 -0.949 -0.949

Assume that there are two individuals with different scores on three items:

โŒ˜+C
response <- data.frame(
  A = c(1, 5),
  B = c(1, 1),
  C = c(5, 1)
)
rownames(response) <- c("Person1", "Person2")
mykbl(response)
A B C
Person1 1 1 5
Person2 5 1 1

We can calculate the weighted network scores for them based on Strength centrality measures and their item scores

โŒ˜+C
as.matrix(response) %*% centrality(exp1)[['Strength']] |> mykbl()
Person1 -3.797
Person2 4.176

The strength-based network score reflect oneโ€™s overall level of clusters of nodes in a network.

Back to top