##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)
##run DFIT
if (FALSE) age.DIF.DFIT <- DFIT(age.DIF)
Run the code above in your browser using DataLab