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

Corrected data generation bug for scenario 10B

Browse Source
This commit is contained in:
Corentin Choisy
2024-05-17 17:09:21 +02:00
parent c6afca9a3b
commit 413b10ae29
5 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
RProject/Scripts/aggregation.R
View File

@ -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 %>% res.dat.dif <- res.dat.dif %>%
relocate(method, .after = theoretical.power) 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 # Items dichotomiques

2
Scripts/Scenarios/DIF/scenarios_DIF_J4_baseline_100.do
View File

@ -2291,7 +2291,7 @@ forvalues replication = 1/1000 {
qui local difi : word 1 of `ItemsDIF' qui local difi : word 1 of `ItemsDIF'
qui local difj : word 2 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 simirt, nbobs(`Nn') mu(0) cov(1) dim(4) pcm(D) clear
qui gen TT = 0 qui gen TT = 0
tempfile grp0 tempfile grp0

2
Scripts/Scenarios/DIF/scenarios_DIF_J4_baseline_200.do
View File

@ -2291,7 +2291,7 @@ forvalues replication = 1/1000 {
qui local difi : word 1 of `ItemsDIF' qui local difi : word 1 of `ItemsDIF'
qui local difj : word 2 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 simirt, nbobs(`Nn') mu(0) cov(1) dim(4) pcm(D) clear
qui gen TT = 0 qui gen TT = 0
tempfile grp0 tempfile grp0

2
Scripts/Scenarios/DIF/scenarios_DIF_J4_baseline_300.do
View File

@ -2291,7 +2291,7 @@ forvalues replication = 1/1000 {
qui local difi : word 1 of `ItemsDIF' qui local difi : word 1 of `ItemsDIF'
qui local difj : word 2 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 simirt, nbobs(`Nn') mu(0) cov(1) dim(4) pcm(D) clear
qui gen TT = 0 qui gen TT = 0
tempfile grp0 tempfile grp0

2
Scripts/Scenarios/DIF/scenarios_DIF_J4_baseline_50.do
View File

@ -2291,7 +2291,7 @@ forvalues replication = 1/1000 {
qui local difi : word 1 of `ItemsDIF' qui local difi : word 1 of `ItemsDIF'
qui local difj : word 2 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 simirt, nbobs(`Nn') mu(0) cov(1) dim(4) pcm(D) clear
qui gen TT = 0 qui gen TT = 0
tempfile grp0 tempfile grp0