dimStability: Dimension Stability Statistics from 'bootEGA'

Description Usage Arguments Value Author(s) References See Also Examples

View source: R/dimStability.R

Description

Based on the bootEGA results, this function computes the stability of dimensions. This is computed by assessing the proportion of times the original dimension is exactly replicated in across bootstrap samples

Usage

1
dimStability(bootega.obj, orig.wc, item.stability = TRUE)

Arguments

bootega.obj

A bootEGA object

orig.wc

Numeric or character. A vector with community numbers or labels for each item. Typically uses community results (wc) from EGA

item.stability

Boolean. Should the item stability statistics be computed using [EGAnet]{itemStability}? Defaults to TRUE

Value

When argument item.stability = TRUE, returns a list containing:

dimensions

The dimensional stability of each dimension

items

The output from itemStability

When argument item.stability = FALSE, returns a vector of the dimensional stability of each dimension

Author(s)

Hudson Golino <hfg9s at virginia.edu> and Alexander P. Christensen <alexpaulchristensen@gmail.com>

References

Christensen, A. P., & Golino, H. (2019). Estimating the stability of the number of factors via Bootstrap Exploratory Graph Analysis: A tutorial. PsyArXiv. doi: 10.31234/osf.io/9deay

Christensen, A. P., Golino, H., & Silvia, P. J. (in press). A psychometric network perspective on the validity and validation of personality trait questionnaires. European Journal of Personality. doi: 10.1002/per.2265

See Also

EGA to estimate the number of dimensions of an instrument using EGA and CFA to verify the fit of the structure suggested by EGA using confirmatory factor analysis.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
# Load data
wmt <- wmt2[,7:24]

# Estimate EGA network
## plot.type = "qqraph" used for CRAN checks
## plot.type = "GGally" is the default
ega.wmt <- EGA(data = wmt, model = "glasso", plot.type = "qgraph")

# Estimate dimension stability
boot.wmt <- bootEGA(data = wmt, uni = TRUE, iter = 500, typicalStructure = TRUE,
plot.typicalStructure = TRUE, model = "glasso", plot.type = "qgraph",
type = "parametric", ncores = 2)


# Estimate item stability statistics
res <- dimStability(boot.wmt, orig.wc = ega.wmt$wc, item.stability = TRUE)
res

# Changing plot features (ggplot2)
## Changing colors (ignore warnings)
### qgraph Defaults
res$items$plot.itemStability + 
    ggplot2::scale_color_manual(values = rainbow(max(res$items$uniq.num)))

### Pastel
res$items$plot.itemStability + 
    ggplot2::scale_color_brewer(palette = "Pastel1")
    
## Changing Legend (ignore warnings)
res$items$plot.itemStability + 
    ggplot2::scale_color_discrete(labels = "Intelligence")

EGAnet documentation built on Feb. 17, 2021, 1:06 a.m.