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