##load PROMIS Anxiety sample data (n=766)
if (FALSE) data(Anxiety)
##age : 0=younger than 65 or 1=65 or older
##run age-related DIF on all 29 items (takes about a minute)
if (FALSE) age.DIF <- lordif(Anxiety[paste("R",1:29,sep="")],Anxiety$age)
##the following takes several minutes
if (FALSE) age.DIF.MC <- montecarlo(age.DIF,alpha=0.01,nr=100)
Run the code above in your browser using DataLab