add SEM.alpha

philchalmers · Jul 25, 2024 · 19ff8eb · 19ff8eb
1 parent 4159a5f
commit 19ff8eb
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/itemstats.R b/R/itemstats.R
@@ -108,6 +108,7 @@ itemstats <- function(data, group = NULL,
                               ave.r=mean(rs[lower.tri(rs)]),
                               sd.r=sd(rs[lower.tri(rs)]),
                               alpha = CA(na.omit(data)))
+        overall$SEM.alpha <- with(overall, sd_total.score * sqrt(1-alpha))
         rownames(overall) <- ""
         df <- data.frame(N=apply(data, 2, function(x) sum(!is.na(x))),
                          mean=colMeans(data, na.rm = TRUE),