libname rasch "G:\SOECharles\rasch";
FILENAME raw1 "G:\SOECharles\rasch\Tstudentproblem.pfile";

data rasch.problem;
infile raw1 missover;
input ENTRY  measure STTS  COUNT   SCORE 
STDER  WINMSQ  INZSTD   OUTMS OUTZSTD  DISPL   
CORR WEIGHT   
ID $;
/*if status indicator =2 then it should be replaced by dot*/
if stTS  < = -2 then measure=.;

/*misfit indicator, if Z is greater than 2*/
MFIT=0;
if INZSTD > 2 or OUTZSTD > 2 then MFIT=1;
if entry > -999;
STproblem=measure;/*assignning a name to the Rasch score*/
run;
proc sort;
by ID;
run;

proc univariate data= rasch.problem plot;
var STproblem;
run;

proc plot data=rasch.problem ;
plot STproblem*STDER;run;