From 4c48b0769d8dc7a48a2ecdbc86d48cf1a5b2c416 Mon Sep 17 00:00:00 2001 From: corentinchoisy Date: Thu, 16 May 2024 17:15:05 +0200 Subject: [PATCH] Corrected bug in final table aggregation --- RProject/Scripts/aggregation.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/RProject/Scripts/aggregation.R b/RProject/Scripts/aggregation.R index 65184ae..e89e22e 100644 --- a/RProject/Scripts/aggregation.R +++ b/RProject/Scripts/aggregation.R @@ -1210,11 +1210,11 @@ res.dat.dif.resali$method <- "RESIDUS" res.dat.dicho <- res.dat[res.dat$M==2,] res.dat.dicho <- rbind(res.dat.dicho,res.dat.dif[res.dat.dif$M==2,]) res.dat.dicho <- rbind.fill(res.dat.dicho,res.dat.dif.rosali[res.dat.dif.rosali$M==2,]) -res.dat.dicho <- rbind(res.dat.dicho,res.dat.dif.rosali[res.dat.dif.resali$M==2,]) +res.dat.dicho <- rbind(res.dat.dicho,res.dat.dif.resali[res.dat.dif.resali$M==2,]) # Items polytomiques res.dat.poly <- res.dat[res.dat$M==4,] res.dat.poly <- rbind(res.dat.poly,res.dat.dif[res.dat.dif$M==4,]) res.dat.poly <- rbind.fill(res.dat.poly,res.dat.dif.rosali[res.dat.dif.rosali$M==4,]) -res.dat.poly <- rbind(res.dat.poly,res.dat.dif.rosali[res.dat.dif.resali$M==4,]) +res.dat.poly <- rbind(res.dat.poly,res.dat.dif.resali[res.dat.dif.resali$M==4,])