Corrected data generation bug for scenario 10B

RProject/Scripts/aggregation.R

@@ -1202,12 +1202,12 @@ res.dat[res.dat$dif.size!=0 & res.dat$nb.dif==0,]$nb.dif <- 1
 res.dat.dif <- res.dat.dif %>%
   relocate(method, .after = theoretical.power)
 
-aa <- res.dat.dif[res.dat.dif$scenario=="10B",]
+#aa <- res.dat.dif[res.dat.dif$scenario=="10B",]
-bb <- res.dat[res.dat$scenario=="10B",]
+#bb <- res.dat[res.dat$scenario=="10B",]
-res.dat.dif[res.dat.dif$scenario=="10B",] <- bb
+#res.dat.dif[res.dat.dif$scenario=="10B",] <- bb
-res.dat[res.dat$scenario=="10B",] <- aa
+#res.dat[res.dat$scenario=="10B",] <- aa
-res.dat[res.dat$method=="PERFECT",]$method <- "NONE"
+#res.dat[res.dat$method=="PERFECT",]$method <- "NONE"
-res.dat.dif[res.dat.dif$method=="NONE",]$method <- "PERFECT"
+#res.dat.dif[res.dat.dif$method=="NONE",]$method <- "PERFECT"
 
 # Items dichotomiques
 

Scripts/Scenarios/DIF/scenarios_DIF_J4_baseline_100.do

@@ -2291,7 +2291,7 @@ forvalues replication = 1/1000 {
     qui local difi :  word 1 of `ItemsDIF'
     qui local difj :  word 2 of `ItemsDIF'
 
-      mat B= (-1.84,-0.84,0.16 \ -1.25,-0.25,0.75 \ -0.75,0.25,1.25 \ 0.16,0.84,1.84)
+      mat D= (-1.84,-0.84,0.16 \ -1.25,-0.25,0.75 \ -0.75,0.25,1.25 \ 0.16,0.84,1.84)
   		qui simirt, nbobs(`Nn') mu(0) cov(1) dim(4) pcm(D) clear
       qui gen TT = 0
   		tempfile grp0

Scripts/Scenarios/DIF/scenarios_DIF_J4_baseline_200.do

@@ -2291,7 +2291,7 @@ forvalues replication = 1/1000 {
     qui local difi :  word 1 of `ItemsDIF'
     qui local difj :  word 2 of `ItemsDIF'
 
-      mat B= (-1.84,-0.84,0.16 \ -1.25,-0.25,0.75 \ -0.75,0.25,1.25 \ 0.16,0.84,1.84)
+      mat D= (-1.84,-0.84,0.16 \ -1.25,-0.25,0.75 \ -0.75,0.25,1.25 \ 0.16,0.84,1.84)
   		qui simirt, nbobs(`Nn') mu(0) cov(1) dim(4) pcm(D) clear
       qui gen TT = 0
   		tempfile grp0

Scripts/Scenarios/DIF/scenarios_DIF_J4_baseline_300.do

@@ -2291,7 +2291,7 @@ forvalues replication = 1/1000 {
     qui local difi :  word 1 of `ItemsDIF'
     qui local difj :  word 2 of `ItemsDIF'
 
-      mat B= (-1.84,-0.84,0.16 \ -1.25,-0.25,0.75 \ -0.75,0.25,1.25 \ 0.16,0.84,1.84)
+      mat D= (-1.84,-0.84,0.16 \ -1.25,-0.25,0.75 \ -0.75,0.25,1.25 \ 0.16,0.84,1.84)
   		qui simirt, nbobs(`Nn') mu(0) cov(1) dim(4) pcm(D) clear
       qui gen TT = 0
   		tempfile grp0

Scripts/Scenarios/DIF/scenarios_DIF_J4_baseline_50.do

@@ -2291,7 +2291,7 @@ forvalues replication = 1/1000 {
     qui local difi :  word 1 of `ItemsDIF'
     qui local difj :  word 2 of `ItemsDIF'
 
-      mat B= (-1.84,-0.84,0.16 \ -1.25,-0.25,0.75 \ -0.75,0.25,1.25 \ 0.16,0.84,1.84)
+      mat D= (-1.84,-0.84,0.16 \ -1.25,-0.25,0.75 \ -0.75,0.25,1.25 \ 0.16,0.84,1.84)
   		qui simirt, nbobs(`Nn') mu(0) cov(1) dim(4) pcm(D) clear
       qui gen TT = 0
   		tempfile grp0