Commit de148867 authored by Gjalt-Jorn Peters's avatar Gjalt-Jorn Peters
Browse files

less CIs

parent 1c5ca947
Pipeline #225314756 failed with stage
in 3 minutes and 35 seconds
......@@ -420,6 +420,7 @@ CIM <- function(data,
}
### Make dataframe with factor loading confidence intervals
if (n.itr > 1)
if ('psych' %in% class(efa)) {
factorLoadingCIs[[rowVar]][[colVar]] <-
......@@ -433,9 +434,23 @@ CIM <- function(data,
faDf <- matrix(unlist(factorLoadingCIs[[rowVar]][[colVar]]),
ncol=6);
} else {
faDf <- matrix(rep(NA, 6*ncol(abbrVarsDat)),
ncol=6);
}
colnames(faDf) <- c(rep(c('lo', 'est', 'hi'), 2));
} else {
faDf <-
data.frame(
unclas(
res$intermediate$efas[[rowVar]][[colVar]]
)
);
}
### Get abbreviated scale names
......@@ -446,7 +461,6 @@ CIM <- function(data,
abbrScales[[abbrScaleNames[colVar]]]);
# paste0(abbr[rowVar], 1:length(scales[[rowVar]])),
# paste0(abbr[colVar], 1:length(scales[[colVar]])));
colnames(faDf) <- c(rep(c('lo', 'est', 'hi'), 2));
faDfReordered <- faDf[order(rownames(faDf)),
];
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment