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

Corrected bug in final table aggregation

Browse Source
main
Corentin Choisy 7 months ago
parent 922f42cf76
commit 4c48b0769d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File

4
RProject/Scripts/aggregation.R
Unescape Escape 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,])

Write Preview
Loading…
Cancel
Save