From 0bf381b1e74b71ad62321ae6d77a9c874604385f Mon Sep 17 00:00:00 2001 From: Julius Pfadt Date: Thu, 20 Jan 2022 15:55:50 +0100 Subject: [PATCH 1/3] fix degrees of freedom bug for configural invariance testing From 2ecadcd3772ac75a5f58a20181493bb64c1385d7 Mon Sep 17 00:00:00 2001 From: Julius Pfadt Date: Thu, 20 Jan 2022 15:55:50 +0100 Subject: [PATCH 2/3] fix degrees of freedom bug for configural invariance testing From 11e6997c4334a6e8b42e79e1d08a9885921909b6 Mon Sep 17 00:00:00 2001 From: Julius Pfadt Date: Tue, 7 May 2024 16:17:08 +0200 Subject: [PATCH 3/3] fix second order grouping bug --- R/confirmatoryfactoranalysis.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/confirmatoryfactoranalysis.R b/R/confirmatoryfactoranalysis.R index a4572329..a5cde483 100644 --- a/R/confirmatoryfactoranalysis.R +++ b/R/confirmatoryfactoranalysis.R @@ -706,7 +706,6 @@ confirmatoryFactorAnalysisInternal <- function(jaspResults, dataset, options, .. # add data fl1dat <- pei[pei$op == "=~" & !pei$rhs %in% facNames, colSel] fl1dat$lhs <- .translateFactorNames(fl1dat$lhs, options) - fl1dat$rhs <- fl1dat$rhs if (options$group != "") { groupLabs <- cfaResult[["lav"]]@Data@group.label fl1dat$group <- rep(groupLabs, each = nrow(fl1dat) / length(groupLabs)) @@ -743,10 +742,11 @@ confirmatoryFactorAnalysisInternal <- function(jaspResults, dataset, options, .. # add data fl2dat <- pei[pei$op == "=~" & pei$rhs %in% facNames, colSel] + fl2dat$rhs <- .translateFactorNames(fl2dat$rhs, options) if (options$group != "") { - fl2dat$group <- rep(groupLabs, each = nrow(fl2dat) / 2) + fl2dat$group <- rep(groupLabs, each = nrow(fl2dat) / length(groupLabs)) } fl2$setData(fl2dat) fl2$dependOn(optionsFromObject = jrobject)