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

Corrected ROSALI scenario scripts

Browse Source
main
Corentin Choisy 8 months ago
parent b87f107009
commit 042a448656
12 changed files with 3728 additions and 3588 deletions
Show Stats Download Patch File Download Diff File

BIN
RProject/.RData
View File

Binary file not shown.

1016
RProject/.Rhistory
View File

File diff suppressed because it is too large Load Diff

16
Scripts/Analysis/DIF-ROSALI/scénarios/pcm_dif_rosali_S10.do
Unescape Escape View File

@ -61,6 +61,9 @@ else {
} }
* taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel * taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2 local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2
if (mod(`s',2)==0) {
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbitems'+`nbdif'+2
}
local colna="" local colna=""
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
forvalues z=1/`nbmoda' { forvalues z=1/`nbmoda' {
@ -69,8 +72,13 @@ else {
} }
} }
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
if (mod(`s',2)==1) {
local colna = "`colna'"+"dif_detect_`i' " local colna = "`colna'"+"dif_detect_`i' "
} }
if (mod(`s',2)==0) {
local colna = "`colna'"+"dif_detect_`i' "+"dif_detect_unif_`i' "
}
}
forvalues i=1/`nbdif' { forvalues i=1/`nbdif' {
local colna = "`colna'"+"real_dif_`i' " local colna = "`colna'"+"real_dif_`i' "
@ -213,7 +221,7 @@ local colna = "`colna'" + "beta " + "se_beta"
local checker2: word 2 of `val' local checker2: word 2 of `val'
local checker3: word 3 of `val' local checker3: word 3 of `val'
local nummoda=r(r) local nummoda=r(r)
local nbmoda_`j'=`nummoda' local nbmoda_`j'=`nummoda'-1
if (`nummoda'==2) { if (`nummoda'==2) {
qui recode item`j' (`checker'=0) (`checker2'=1) qui recode item`j' (`checker'=0) (`checker2'=1)
} }
@ -301,11 +309,14 @@ local colna = "`colna'" + "beta " + "se_beta"
local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)" local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)"
} }
local w= 100+`u' local w= 100+`u'
local unif_`u'=0
if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) { if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) {
local conformula = "`conformula'" + "`u' " + "`w' " local conformula = "`conformula'" + "`u' " + "`w' "
local unif_`u'=1
} }
else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) { else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) {
local conformula = "`conformula'" + "`u' " local conformula = "`conformula'" + "`u' "
local unif_`u'=1
} }
} }
if ("`conformula'" != "") { if ("`conformula'" != "") {
@ -330,7 +341,10 @@ local colna = "`colna'" + "beta " + "se_beta"
local j=`difitems`u'' local j=`difitems`u''
forvalues z=1/`nbmoda_`j'' { forvalues z=1/`nbmoda_`j'' {
mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")] mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")]
}
mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j' mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j'
if (mod(`s',2)==0) {
mat outmat[`k',colnumb(outmat,"dif_detect_unif_`u'")] = `unif_`u''
} }
} }

16
Scripts/Analysis/DIF-ROSALI/scénarios/pcm_dif_rosali_S12.do
Unescape Escape View File

@ -61,6 +61,9 @@ else {
} }
* taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel * taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2 local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2
if (mod(`s',2)==0) {
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbitems'+`nbdif'+2
}
local colna="" local colna=""
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
forvalues z=1/`nbmoda' { forvalues z=1/`nbmoda' {
@ -69,8 +72,13 @@ else {
} }
} }
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
if (mod(`s',2)==1) {
local colna = "`colna'"+"dif_detect_`i' " local colna = "`colna'"+"dif_detect_`i' "
} }
if (mod(`s',2)==0) {
local colna = "`colna'"+"dif_detect_`i' "+"dif_detect_unif_`i' "
}
}
forvalues i=1/`nbdif' { forvalues i=1/`nbdif' {
local colna = "`colna'"+"real_dif_`i' " local colna = "`colna'"+"real_dif_`i' "
@ -213,7 +221,7 @@ local colna = "`colna'" + "beta " + "se_beta"
local checker2: word 2 of `val' local checker2: word 2 of `val'
local checker3: word 3 of `val' local checker3: word 3 of `val'
local nummoda=r(r) local nummoda=r(r)
local nbmoda_`j'=`nummoda' local nbmoda_`j'=`nummoda'-1
if (`nummoda'==2) { if (`nummoda'==2) {
qui recode item`j' (`checker'=0) (`checker2'=1) qui recode item`j' (`checker'=0) (`checker2'=1)
} }
@ -301,11 +309,14 @@ local colna = "`colna'" + "beta " + "se_beta"
local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)" local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)"
} }
local w= 100+`u' local w= 100+`u'
local unif_`u'=0
if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) { if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) {
local conformula = "`conformula'" + "`u' " + "`w' " local conformula = "`conformula'" + "`u' " + "`w' "
local unif_`u'=1
} }
else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) { else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) {
local conformula = "`conformula'" + "`u' " local conformula = "`conformula'" + "`u' "
local unif_`u'=1
} }
} }
if ("`conformula'" != "") { if ("`conformula'" != "") {
@ -330,7 +341,10 @@ local colna = "`colna'" + "beta " + "se_beta"
local j=`difitems`u'' local j=`difitems`u''
forvalues z=1/`nbmoda_`j'' { forvalues z=1/`nbmoda_`j'' {
mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")] mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")]
}
mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j' mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j'
if (mod(`s',2)==0) {
mat outmat[`k',colnumb(outmat,"dif_detect_unif_`u'")] = `unif_`u''
} }
} }

16
Scripts/Analysis/DIF-ROSALI/scénarios/pcm_dif_rosali_S14.do
Unescape Escape View File

@ -61,6 +61,9 @@ else {
} }
* taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel * taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2 local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2
if (mod(`s',2)==0) {
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbitems'+`nbdif'+2
}
local colna="" local colna=""
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
forvalues z=1/`nbmoda' { forvalues z=1/`nbmoda' {
@ -69,8 +72,13 @@ else {
} }
} }
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
if (mod(`s',2)==1) {
local colna = "`colna'"+"dif_detect_`i' " local colna = "`colna'"+"dif_detect_`i' "
} }
if (mod(`s',2)==0) {
local colna = "`colna'"+"dif_detect_`i' "+"dif_detect_unif_`i' "
}
}
forvalues i=1/`nbdif' { forvalues i=1/`nbdif' {
local colna = "`colna'"+"real_dif_`i' " local colna = "`colna'"+"real_dif_`i' "
@ -213,7 +221,7 @@ local colna = "`colna'" + "beta " + "se_beta"
local checker2: word 2 of `val' local checker2: word 2 of `val'
local checker3: word 3 of `val' local checker3: word 3 of `val'
local nummoda=r(r) local nummoda=r(r)
local nbmoda_`j'=`nummoda' local nbmoda_`j'=`nummoda'-1
if (`nummoda'==2) { if (`nummoda'==2) {
qui recode item`j' (`checker'=0) (`checker2'=1) qui recode item`j' (`checker'=0) (`checker2'=1)
} }
@ -301,11 +309,14 @@ local colna = "`colna'" + "beta " + "se_beta"
local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)" local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)"
} }
local w= 100+`u' local w= 100+`u'
local unif_`u'=0
if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) { if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) {
local conformula = "`conformula'" + "`u' " + "`w' " local conformula = "`conformula'" + "`u' " + "`w' "
local unif_`u'=1
} }
else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) { else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) {
local conformula = "`conformula'" + "`u' " local conformula = "`conformula'" + "`u' "
local unif_`u'=1
} }
} }
if ("`conformula'" != "") { if ("`conformula'" != "") {
@ -330,7 +341,10 @@ local colna = "`colna'" + "beta " + "se_beta"
local j=`difitems`u'' local j=`difitems`u''
forvalues z=1/`nbmoda_`j'' { forvalues z=1/`nbmoda_`j'' {
mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")] mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")]
}
mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j' mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j'
if (mod(`s',2)==0) {
mat outmat[`k',colnumb(outmat,"dif_detect_unif_`u'")] = `unif_`u''
} }
} }

16
Scripts/Analysis/DIF-ROSALI/scénarios/pcm_dif_rosali_S16.do
Unescape Escape View File

@ -61,6 +61,9 @@ else {
} }
* taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel * taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2 local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2
if (mod(`s',2)==0) {
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbitems'+`nbdif'+2
}
local colna="" local colna=""
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
forvalues z=1/`nbmoda' { forvalues z=1/`nbmoda' {
@ -69,8 +72,13 @@ else {
} }
} }
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
if (mod(`s',2)==1) {
local colna = "`colna'"+"dif_detect_`i' " local colna = "`colna'"+"dif_detect_`i' "
} }
if (mod(`s',2)==0) {
local colna = "`colna'"+"dif_detect_`i' "+"dif_detect_unif_`i' "
}
}
forvalues i=1/`nbdif' { forvalues i=1/`nbdif' {
local colna = "`colna'"+"real_dif_`i' " local colna = "`colna'"+"real_dif_`i' "
@ -213,7 +221,7 @@ local colna = "`colna'" + "beta " + "se_beta"
local checker2: word 2 of `val' local checker2: word 2 of `val'
local checker3: word 3 of `val' local checker3: word 3 of `val'
local nummoda=r(r) local nummoda=r(r)
local nbmoda_`j'=`nummoda' local nbmoda_`j'=`nummoda'-1
if (`nummoda'==2) { if (`nummoda'==2) {
qui recode item`j' (`checker'=0) (`checker2'=1) qui recode item`j' (`checker'=0) (`checker2'=1)
} }
@ -301,11 +309,14 @@ local colna = "`colna'" + "beta " + "se_beta"
local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)" local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)"
} }
local w= 100+`u' local w= 100+`u'
local unif_`u'=0
if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) { if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) {
local conformula = "`conformula'" + "`u' " + "`w' " local conformula = "`conformula'" + "`u' " + "`w' "
local unif_`u'=1
} }
else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) { else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) {
local conformula = "`conformula'" + "`u' " local conformula = "`conformula'" + "`u' "
local unif_`u'=1
} }
} }
if ("`conformula'" != "") { if ("`conformula'" != "") {
@ -330,7 +341,10 @@ local colna = "`colna'" + "beta " + "se_beta"
local j=`difitems`u'' local j=`difitems`u''
forvalues z=1/`nbmoda_`j'' { forvalues z=1/`nbmoda_`j'' {
mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")] mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")]
}
mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j' mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j'
if (mod(`s',2)==0) {
mat outmat[`k',colnumb(outmat,"dif_detect_unif_`u'")] = `unif_`u''
} }
} }

16
Scripts/Analysis/DIF-ROSALI/scénarios/pcm_dif_rosali_S18.do
Unescape Escape View File

@ -61,6 +61,9 @@ else {
} }
* taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel * taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2 local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2
if (mod(`s',2)==0) {
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbitems'+`nbdif'+2
}
local colna="" local colna=""
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
forvalues z=1/`nbmoda' { forvalues z=1/`nbmoda' {
@ -69,8 +72,13 @@ else {
} }
} }
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
if (mod(`s',2)==1) {
local colna = "`colna'"+"dif_detect_`i' " local colna = "`colna'"+"dif_detect_`i' "
} }
if (mod(`s',2)==0) {
local colna = "`colna'"+"dif_detect_`i' "+"dif_detect_unif_`i' "
}
}
forvalues i=1/`nbdif' { forvalues i=1/`nbdif' {
local colna = "`colna'"+"real_dif_`i' " local colna = "`colna'"+"real_dif_`i' "
@ -213,7 +221,7 @@ local colna = "`colna'" + "beta " + "se_beta"
local checker2: word 2 of `val' local checker2: word 2 of `val'
local checker3: word 3 of `val' local checker3: word 3 of `val'
local nummoda=r(r) local nummoda=r(r)
local nbmoda_`j'=`nummoda' local nbmoda_`j'=`nummoda'-1
if (`nummoda'==2) { if (`nummoda'==2) {
qui recode item`j' (`checker'=0) (`checker2'=1) qui recode item`j' (`checker'=0) (`checker2'=1)
} }
@ -301,11 +309,14 @@ local colna = "`colna'" + "beta " + "se_beta"
local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)" local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)"
} }
local w= 100+`u' local w= 100+`u'
local unif_`u'=0
if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) { if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) {
local conformula = "`conformula'" + "`u' " + "`w' " local conformula = "`conformula'" + "`u' " + "`w' "
local unif_`u'=1
} }
else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) { else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) {
local conformula = "`conformula'" + "`u' " local conformula = "`conformula'" + "`u' "
local unif_`u'=1
} }
} }
if ("`conformula'" != "") { if ("`conformula'" != "") {
@ -330,7 +341,10 @@ local colna = "`colna'" + "beta " + "se_beta"
local j=`difitems`u'' local j=`difitems`u''
forvalues z=1/`nbmoda_`j'' { forvalues z=1/`nbmoda_`j'' {
mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")] mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")]
}
mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j' mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j'
if (mod(`s',2)==0) {
mat outmat[`k',colnumb(outmat,"dif_detect_unif_`u'")] = `unif_`u''
} }
} }

16
Scripts/Analysis/DIF-ROSALI/scénarios/pcm_dif_rosali_S2.do
Unescape Escape View File

@ -61,6 +61,9 @@ else {
} }
* taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel * taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2 local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2
if (mod(`s',2)==0) {
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbitems'+`nbdif'+2
}
local colna="" local colna=""
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
forvalues z=1/`nbmoda' { forvalues z=1/`nbmoda' {
@ -69,8 +72,13 @@ else {
} }
} }
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
if (mod(`s',2)==1) {
local colna = "`colna'"+"dif_detect_`i' " local colna = "`colna'"+"dif_detect_`i' "
} }
if (mod(`s',2)==0) {
local colna = "`colna'"+"dif_detect_`i' "+"dif_detect_unif_`i' "
}
}
forvalues i=1/`nbdif' { forvalues i=1/`nbdif' {
local colna = "`colna'"+"real_dif_`i' " local colna = "`colna'"+"real_dif_`i' "
@ -213,7 +221,7 @@ local colna = "`colna'" + "beta " + "se_beta"
local checker2: word 2 of `val' local checker2: word 2 of `val'
local checker3: word 3 of `val' local checker3: word 3 of `val'
local nummoda=r(r) local nummoda=r(r)
local nbmoda_`j'=`nummoda' local nbmoda_`j'=`nummoda'-1
if (`nummoda'==2) { if (`nummoda'==2) {
qui recode item`j' (`checker'=0) (`checker2'=1) qui recode item`j' (`checker'=0) (`checker2'=1)
} }
@ -301,11 +309,14 @@ local colna = "`colna'" + "beta " + "se_beta"
local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)" local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)"
} }
local w= 100+`u' local w= 100+`u'
local unif_`u'=0
if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) { if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) {
local conformula = "`conformula'" + "`u' " + "`w' " local conformula = "`conformula'" + "`u' " + "`w' "
local unif_`u'=1
} }
else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) { else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) {
local conformula = "`conformula'" + "`u' " local conformula = "`conformula'" + "`u' "
local unif_`u'=1
} }
} }
if ("`conformula'" != "") { if ("`conformula'" != "") {
@ -330,7 +341,10 @@ local colna = "`colna'" + "beta " + "se_beta"
local j=`difitems`u'' local j=`difitems`u''
forvalues z=1/`nbmoda_`j'' { forvalues z=1/`nbmoda_`j'' {
mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")] mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")]
}
mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j' mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j'
if (mod(`s',2)==0) {
mat outmat[`k',colnumb(outmat,"dif_detect_unif_`u'")] = `unif_`u''
} }
} }

16
Scripts/Analysis/DIF-ROSALI/scénarios/pcm_dif_rosali_S20.do
Unescape Escape View File

@ -61,6 +61,9 @@ else {
} }
* taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel * taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2 local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2
if (mod(`s',2)==0) {
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbitems'+`nbdif'+2
}
local colna="" local colna=""
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
forvalues z=1/`nbmoda' { forvalues z=1/`nbmoda' {
@ -69,8 +72,13 @@ else {
} }
} }
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
if (mod(`s',2)==1) {
local colna = "`colna'"+"dif_detect_`i' " local colna = "`colna'"+"dif_detect_`i' "
} }
if (mod(`s',2)==0) {
local colna = "`colna'"+"dif_detect_`i' "+"dif_detect_unif_`i' "
}
}
forvalues i=1/`nbdif' { forvalues i=1/`nbdif' {
local colna = "`colna'"+"real_dif_`i' " local colna = "`colna'"+"real_dif_`i' "
@ -213,7 +221,7 @@ local colna = "`colna'" + "beta " + "se_beta"
local checker2: word 2 of `val' local checker2: word 2 of `val'
local checker3: word 3 of `val' local checker3: word 3 of `val'
local nummoda=r(r) local nummoda=r(r)
local nbmoda_`j'=`nummoda' local nbmoda_`j'=`nummoda'-1
if (`nummoda'==2) { if (`nummoda'==2) {
qui recode item`j' (`checker'=0) (`checker2'=1) qui recode item`j' (`checker'=0) (`checker2'=1)
} }
@ -301,11 +309,14 @@ local colna = "`colna'" + "beta " + "se_beta"
local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)" local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)"
} }
local w= 100+`u' local w= 100+`u'
local unif_`u'=0
if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) { if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) {
local conformula = "`conformula'" + "`u' " + "`w' " local conformula = "`conformula'" + "`u' " + "`w' "
local unif_`u'=1
} }
else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) { else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) {
local conformula = "`conformula'" + "`u' " local conformula = "`conformula'" + "`u' "
local unif_`u'=1
} }
} }
if ("`conformula'" != "") { if ("`conformula'" != "") {
@ -330,7 +341,10 @@ local colna = "`colna'" + "beta " + "se_beta"
local j=`difitems`u'' local j=`difitems`u''
forvalues z=1/`nbmoda_`j'' { forvalues z=1/`nbmoda_`j'' {
mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")] mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")]
}
mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j' mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j'
if (mod(`s',2)==0) {
mat outmat[`k',colnumb(outmat,"dif_detect_unif_`u'")] = `unif_`u''
} }
} }

16
Scripts/Analysis/DIF-ROSALI/scénarios/pcm_dif_rosali_S4.do
Unescape Escape View File

@ -61,6 +61,9 @@ else {
} }
* taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel * taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2 local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2
if (mod(`s',2)==0) {
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbitems'+`nbdif'+2
}
local colna="" local colna=""
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
forvalues z=1/`nbmoda' { forvalues z=1/`nbmoda' {
@ -69,8 +72,13 @@ else {
} }
} }
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
if (mod(`s',2)==1) {
local colna = "`colna'"+"dif_detect_`i' " local colna = "`colna'"+"dif_detect_`i' "
} }
if (mod(`s',2)==0) {
local colna = "`colna'"+"dif_detect_`i' "+"dif_detect_unif_`i' "
}
}
forvalues i=1/`nbdif' { forvalues i=1/`nbdif' {
local colna = "`colna'"+"real_dif_`i' " local colna = "`colna'"+"real_dif_`i' "
@ -213,7 +221,7 @@ local colna = "`colna'" + "beta " + "se_beta"
local checker2: word 2 of `val' local checker2: word 2 of `val'
local checker3: word 3 of `val' local checker3: word 3 of `val'
local nummoda=r(r) local nummoda=r(r)
local nbmoda_`j'=`nummoda' local nbmoda_`j'=`nummoda'-1
if (`nummoda'==2) { if (`nummoda'==2) {
qui recode item`j' (`checker'=0) (`checker2'=1) qui recode item`j' (`checker'=0) (`checker2'=1)
} }
@ -301,11 +309,14 @@ local colna = "`colna'" + "beta " + "se_beta"
local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)" local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)"
} }
local w= 100+`u' local w= 100+`u'
local unif_`u'=0
if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) { if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) {
local conformula = "`conformula'" + "`u' " + "`w' " local conformula = "`conformula'" + "`u' " + "`w' "
local unif_`u'=1
} }
else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) { else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) {
local conformula = "`conformula'" + "`u' " local conformula = "`conformula'" + "`u' "
local unif_`u'=1
} }
} }
if ("`conformula'" != "") { if ("`conformula'" != "") {
@ -330,7 +341,10 @@ local colna = "`colna'" + "beta " + "se_beta"
local j=`difitems`u'' local j=`difitems`u''
forvalues z=1/`nbmoda_`j'' { forvalues z=1/`nbmoda_`j'' {
mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")] mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")]
}
mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j' mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j'
if (mod(`s',2)==0) {
mat outmat[`k',colnumb(outmat,"dif_detect_unif_`u'")] = `unif_`u''
} }
} }

16
Scripts/Analysis/DIF-ROSALI/scénarios/pcm_dif_rosali_S6.do
Unescape Escape View File

@ -61,6 +61,9 @@ else {
} }
* taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel * taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2 local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2
if (mod(`s',2)==0) {
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbitems'+`nbdif'+2
}
local colna="" local colna=""
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
forvalues z=1/`nbmoda' { forvalues z=1/`nbmoda' {
@ -69,8 +72,13 @@ else {
} }
} }
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
if (mod(`s',2)==1) {
local colna = "`colna'"+"dif_detect_`i' " local colna = "`colna'"+"dif_detect_`i' "
} }
if (mod(`s',2)==0) {
local colna = "`colna'"+"dif_detect_`i' "+"dif_detect_unif_`i' "
}
}
forvalues i=1/`nbdif' { forvalues i=1/`nbdif' {
local colna = "`colna'"+"real_dif_`i' " local colna = "`colna'"+"real_dif_`i' "
@ -213,7 +221,7 @@ local colna = "`colna'" + "beta " + "se_beta"
local checker2: word 2 of `val' local checker2: word 2 of `val'
local checker3: word 3 of `val' local checker3: word 3 of `val'
local nummoda=r(r) local nummoda=r(r)
local nbmoda_`j'=`nummoda' local nbmoda_`j'=`nummoda'-1
if (`nummoda'==2) { if (`nummoda'==2) {
qui recode item`j' (`checker'=0) (`checker2'=1) qui recode item`j' (`checker'=0) (`checker2'=1)
} }
@ -301,11 +309,14 @@ local colna = "`colna'" + "beta " + "se_beta"
local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)" local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)"
} }
local w= 100+`u' local w= 100+`u'
local unif_`u'=0
if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) { if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) {
local conformula = "`conformula'" + "`u' " + "`w' " local conformula = "`conformula'" + "`u' " + "`w' "
local unif_`u'=1
} }
else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) { else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) {
local conformula = "`conformula'" + "`u' " local conformula = "`conformula'" + "`u' "
local unif_`u'=1
} }
} }
if ("`conformula'" != "") { if ("`conformula'" != "") {
@ -330,7 +341,10 @@ local colna = "`colna'" + "beta " + "se_beta"
local j=`difitems`u'' local j=`difitems`u''
forvalues z=1/`nbmoda_`j'' { forvalues z=1/`nbmoda_`j'' {
mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")] mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")]
}
mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j' mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j'
if (mod(`s',2)==0) {
mat outmat[`k',colnumb(outmat,"dif_detect_unif_`u'")] = `unif_`u''
} }
} }

16
Scripts/Analysis/DIF-ROSALI/scénarios/pcm_dif_rosali_S8.do
Unescape Escape View File

@ -61,6 +61,9 @@ else {
} }
* taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel * taillemat = Maximum J*M cases pour les items par et J*M cases pour les dif par + J cases pour les DIF detect + nbdif cases pour dif réel
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2 local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbdif'+2
if (mod(`s',2)==0) {
local taillemat=2*`nbitems'*`nbmoda'+`nbitems'+`nbitems'+`nbdif'+2
}
local colna="" local colna=""
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
forvalues z=1/`nbmoda' { forvalues z=1/`nbmoda' {
@ -69,8 +72,13 @@ else {
} }
} }
forvalues i=1/`nbitems' { forvalues i=1/`nbitems' {
if (mod(`s',2)==1) {
local colna = "`colna'"+"dif_detect_`i' " local colna = "`colna'"+"dif_detect_`i' "
} }
if (mod(`s',2)==0) {
local colna = "`colna'"+"dif_detect_`i' "+"dif_detect_unif_`i' "
}
}
forvalues i=1/`nbdif' { forvalues i=1/`nbdif' {
local colna = "`colna'"+"real_dif_`i' " local colna = "`colna'"+"real_dif_`i' "
@ -213,7 +221,7 @@ local colna = "`colna'" + "beta " + "se_beta"
local checker2: word 2 of `val' local checker2: word 2 of `val'
local checker3: word 3 of `val' local checker3: word 3 of `val'
local nummoda=r(r) local nummoda=r(r)
local nbmoda_`j'=`nummoda' local nbmoda_`j'=`nummoda'-1
if (`nummoda'==2) { if (`nummoda'==2) {
qui recode item`j' (`checker'=0) (`checker2'=1) qui recode item`j' (`checker'=0) (`checker2'=1)
} }
@ -301,11 +309,14 @@ local colna = "`colna'" + "beta " + "se_beta"
local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)" local mod = "`mod'"+"(2.item`v'<-THETA@2 tt)"
} }
local w= 100+`u' local w= 100+`u'
local unif_`u'=0
if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) { if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==3) {
local conformula = "`conformula'" + "`u' " + "`w' " local conformula = "`conformula'" + "`u' " + "`w' "
local unif_`u'=1
} }
else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) { else if (resmat[1,`nbitems'+`v']!=testm[1,1] & `nbmoda_`v''==2) {
local conformula = "`conformula'" + "`u' " local conformula = "`conformula'" + "`u' "
local unif_`u'=1
} }
} }
if ("`conformula'" != "") { if ("`conformula'" != "") {
@ -330,7 +341,10 @@ local colna = "`colna'" + "beta " + "se_beta"
local j=`difitems`u'' local j=`difitems`u''
forvalues z=1/`nbmoda_`j'' { forvalues z=1/`nbmoda_`j'' {
mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")] mat outmat[`k',colnumb(outmat,"dif_`u'_`z'")] = W[1,colnumb(W,"`z'.item`j':tt")]
}
mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j' mat outmat[`k',colnumb(outmat,"dif_detect_`u'")] = `j'
if (mod(`s',2)==0) {
mat outmat[`k',colnumb(outmat,"dif_detect_unif_`u'")] = `unif_`u''
} }
} }

Write Preview
Loading…
Cancel
Save