Added scenario 6 DIF analysis
This commit is contained in:
@ -130,7 +130,7 @@ replicate_pcm_analysis<- function(df=NULL,treatment='TT',irtmodel='PCM2',method=
|
||||
j <- max(df$item1)
|
||||
if(j==1) {
|
||||
return(replicate_pcm_analysis_m2(df=NULL,treatment='TT',irtmodel='PCM2',method='MML',sequence='replication',truebeta=0,eff.size=0,difsize=NA,nbdif=0))
|
||||
} else if (j==3) {
|
||||
} else {
|
||||
return(replicate_pcm_analysis_m4(df=NULL,treatment='TT',irtmodel='PCM2',method='MML',sequence='replication',truebeta=0,eff.size=0,difsize=NA,nbdif=0))
|
||||
}
|
||||
}
|
||||
|
Reference in New Issue
Block a user