x02_SAS_ModelCal.sas

/* */
DATA TA;
SET SASHELP.CARS;
IF CYLINDERS IN (4,6) THEN K = 0;
ELSE K = 1;
KEEP MSRP K;
RUN;

PROC PRINT DATA = TA(OBS = 20);
RUN;


/* */
PROC SORT DATA = TA;
BY MSRP;
RUN;


/* */
PROC RANK DATA = TA OUT = TB GROUPS = 5;
VAR MSRP;
RANKS GMSRP;
RUN;

PROC PRINT DATA = TB(OBS = 20);
RUN;


/* */
PROC FREQ DATA = TB NOPRINT;
TABLE GMSRP * K/OUT = TC;
RUN;

PROC PRINT DATA = TC(OBS = 20);
RUN;


/* */
/* NPAR1WAY KS */
PROC NPAR1WAY DATA = TC KS NOPRINT;
CLASS K;
VAR GMSRP;
FREQ COUNT;
OUTPUT OUT = TD;
RUN;

PROC PRINT DATA = TD;
RUN;


/* */
DATA T_KS;
SET TD;
KEEP _D_;
RUN;

PROC PRINT DATA = T_KS;
RUN;