corentinchoisy/simul_these
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corrected bug in final table aggregation

Browse Source
This commit is contained in:
Corentin Choisy
2024-05-16 17:15:05 +02:00
parent 922f42cf76
commit 4c48b0769d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
RProject/Scripts/aggregation.R
View File

@ -1210,11 +1210,11 @@ res.dat.dif.resali$method <- "RESIDUS"
res.dat.dicho <- res.dat[res.dat$M==2,] 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(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.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 # Items polytomiques
res.dat.poly <- res.dat[res.dat$M==4,] 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(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.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,])