# \donttest{
pf_models <- pf3[1:3]
sscs <- eempf_ssc(pf_models, cores = 2)
sscs
tcc <- eempf_ssc(pf_models, tcc = TRUE, cores = 2)
tcc
## mixed tcc (combine em and ex)
mtcc <- eempf_ssc(pf_models, tcc = TRUE, m = TRUE, cores = 2)
mtcc
## compare results from splithalf analysis
sh_sscs <- eempf_ssc(sh, cores = 2)
sh_sscs
## view diagonals only (components with similar numbers only)
lapply(sh_sscs, lapply, diag)
# }
Run the code above in your browser using DataLab