corentinchoisy/ROSALI-SIM
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added uniform DIF assessment

Browse Source
This commit is contained in:
Corentin Choisy
2024-03-21 18:10:47 +01:00
parent a87a080993
commit 6c3e75fc42
5 changed files with 64 additions and 1010 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
Scripts/ROSALI-SIM.do
View File

@ -53,7 +53,7 @@ adopath+"/home/corentin/Documents/These/Recherche/ROSALI-SIM/Modules/rosali_cust
else {
local nbdif=3
}
local taillemat=`nbitems'+3+`nbdif'
local taillemat=2*`nbitems'+3+`nbdif'
mat outmat = J(1000,`taillemat',.)
di "Scenario `s'`scen' / N=`Nnn'"
@ -65,27 +65,28 @@ adopath+"/home/corentin/Documents/These/Recherche/ROSALI-SIM/Modules/rosali_cust
qui keep if replication==`k'
qui rosali_original item1-item`nbitems' item1-item`nbitems', group(TT)
qui mat resmat=r(difitems)
forvalues jj=1/`nbitems' {
local nbitems2 = 2*`nbitems'
forvalues jj=1/`nbitems2' {
qui mat outmat[`k',`jj']=resmat[1,`jj']
}
qui mat outmat[`k',`nbitems'+1]=`Nn'
qui mat outmat[`k',`nbitems'+2]=`nbitems'
qui mat outmat[`k',`nbitems'+3]=`nbdif'
qui mat outmat[`k',2*`nbitems'+1]=`Nn'
qui mat outmat[`k',2*`nbitems'+2]=`nbitems'
qui mat outmat[`k',2*`nbitems'+3]=`nbdif'
if (`nbdif' > 0) {
qui levelsof dif1
local ldif1 = r(levels)
local diff1: word 1 of `ldif1'
qui mat outmat[`k',`nbitems'+4]=`diff1'
qui mat outmat[`k',2*`nbitems'+4]=`diff1'
if (`nbdif' > 1) {
qui levelsof dif2
local ldif2 = r(levels)
local diff2: word 1 of `ldif2'
qui mat outmat[`k',`nbitems'+5]=`diff2'
qui mat outmat[`k',2*`nbitems'+5]=`diff2'
if (`nbdif' > 2) {
qui levelsof dif3
local ldif3 = r(levels)
local diff3: word 1 of `ldif3'
qui mat outmat[`k',`nbitems'+6]=`diff3'
qui mat outmat[`k',2*`nbitems'+6]=`diff3'
}
}
}
@ -137,7 +138,7 @@ adopath+"/home/corentin/Documents/These/Recherche/ROSALI-SIM/Modules/rosali_cust
else {
local nbdif=3
}
local taillemat=`nbitems'+3+`nbdif'
local taillemat=2*`nbitems'+3+`nbdif'
mat outmat = J(1000,`taillemat',.)
di "Scenario `s'`scen' / N=`Nnn'"
@ -149,27 +150,28 @@ adopath+"/home/corentin/Documents/These/Recherche/ROSALI-SIM/Modules/rosali_cust
qui keep if replication==`k'
qui rosali_nobf item1-item`nbitems' item1-item`nbitems', group(TT)
qui mat resmat=r(difitems)
forvalues jj=1/`nbitems' {
local nbitems2 = 2*`nbitems'
forvalues jj=1/`nbitems2' {
qui mat outmat[`k',`jj']=resmat[1,`jj']
}
qui mat outmat[`k',`nbitems'+1]=`Nn'
qui mat outmat[`k',`nbitems'+2]=`nbitems'
qui mat outmat[`k',`nbitems'+3]=`nbdif'
qui mat outmat[`k',2*`nbitems'+1]=`Nn'
qui mat outmat[`k',2*`nbitems'+2]=`nbitems'
qui mat outmat[`k',2*`nbitems'+3]=`nbdif'
if (`nbdif' > 0) {
qui levelsof dif1
local ldif1 = r(levels)
local diff1: word 1 of `ldif1'
qui mat outmat[`k',`nbitems'+4]=`diff1'
qui mat outmat[`k',2*`nbitems'+4]=`diff1'
if (`nbdif' > 1) {
qui levelsof dif2
local ldif2 = r(levels)
local diff2: word 1 of `ldif2'
qui mat outmat[`k',`nbitems'+5]=`diff2'
qui mat outmat[`k',2*`nbitems'+5]=`diff2'
if (`nbdif' > 2) {
qui levelsof dif3
local ldif3 = r(levels)
local diff3: word 1 of `ldif3'
qui mat outmat[`k',`nbitems'+6]=`diff3'
qui mat outmat[`k',2*`nbitems'+6]=`diff3'
}
}
}
@ -221,7 +223,7 @@ adopath+"/home/corentin/Documents/These/Recherche/ROSALI-SIM/Modules/rosali_cust
else {
local nbdif=3
}
local taillemat=`nbitems'+3+`nbdif'
local taillemat=2*`nbitems'+3+`nbdif'
mat outmat = J(1000,`taillemat',.)
di "Scenario `s'`scen' / N=`Nnn'"
@ -233,27 +235,28 @@ adopath+"/home/corentin/Documents/These/Recherche/ROSALI-SIM/Modules/rosali_cust
qui keep if replication==`k'
qui rosali_nolrt item1-item`nbitems' item1-item`nbitems', group(TT)
qui mat resmat=r(difitems)
forvalues jj=1/`nbitems' {
local nbitems2 = 2*`nbitems'
forvalues jj=1/`nbitems2' {
qui mat outmat[`k',`jj']=resmat[1,`jj']
}
qui mat outmat[`k',`nbitems'+1]=`Nn'
qui mat outmat[`k',`nbitems'+2]=`nbitems'
qui mat outmat[`k',`nbitems'+3]=`nbdif'
qui mat outmat[`k',2*`nbitems'+1]=`Nn'
qui mat outmat[`k',2*`nbitems'+2]=`nbitems'
qui mat outmat[`k',2*`nbitems'+3]=`nbdif'
if (`nbdif' > 0) {
qui levelsof dif1
local ldif1 = r(levels)
local diff1: word 1 of `ldif1'
qui mat outmat[`k',`nbitems'+4]=`diff1'
qui mat outmat[`k',2*`nbitems'+4]=`diff1'
if (`nbdif' > 1) {
qui levelsof dif2
local ldif2 = r(levels)
local diff2: word 1 of `ldif2'
qui mat outmat[`k',`nbitems'+5]=`diff2'
qui mat outmat[`k',2*`nbitems'+5]=`diff2'
if (`nbdif' > 2) {
qui levelsof dif3
local ldif3 = r(levels)
local diff3: word 1 of `ldif3'
qui mat outmat[`k',`nbitems'+6]=`diff3'
qui mat outmat[`k',2*`nbitems'+6]=`diff3'
}
}
}
@ -304,7 +307,7 @@ adopath+"/home/corentin/Documents/These/Recherche/ROSALI-SIM/Modules/rosali_cust
else {
local nbdif=3
}
local taillemat=`nbitems'+3+`nbdif'
local taillemat=2*`nbitems'+3+`nbdif'
mat outmat = J(1000,`taillemat',.)
di "Scenario `s'`scen' / N=`Nnn'"
@ -316,27 +319,28 @@ adopath+"/home/corentin/Documents/These/Recherche/ROSALI-SIM/Modules/rosali_cust
qui keep if replication==`k'
qui rosali_nolrt_nobf item1-item`nbitems' item1-item`nbitems', group(TT)
qui mat resmat=r(difitems)
forvalues jj=1/`nbitems' {
local nbitems2 = 2*`nbitems'
forvalues jj=1/`nbitems2' {
qui mat outmat[`k',`jj']=resmat[1,`jj']
}
qui mat outmat[`k',`nbitems'+1]=`Nn'
qui mat outmat[`k',`nbitems'+2]=`nbitems'
qui mat outmat[`k',`nbitems'+3]=`nbdif'
qui mat outmat[`k',2*`nbitems'+1]=`Nn'
qui mat outmat[`k',2*`nbitems'+2]=`nbitems'
qui mat outmat[`k',2*`nbitems'+3]=`nbdif'
if (`nbdif' > 0) {
qui levelsof dif1
local ldif1 = r(levels)
local diff1: word 1 of `ldif1'
qui mat outmat[`k',`nbitems'+4]=`diff1'
qui mat outmat[`k',2*`nbitems'+4]=`diff1'
if (`nbdif' > 1) {
qui levelsof dif2
local ldif2 = r(levels)
local diff2: word 1 of `ldif2'
qui mat outmat[`k',`nbitems'+5]=`diff2'
qui mat outmat[`k',2*`nbitems'+5]=`diff2'
if (`nbdif' > 2) {
qui levelsof dif3
local ldif3 = r(levels)
local diff3: word 1 of `ldif3'
qui mat outmat[`k',`nbitems'+6]=`diff3'
qui mat outmat[`k',2*`nbitems'+6]=`diff3'
}
}
}