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,])