New EDF Statistics for Goodness-of-Fit Test

 /****************************************************************/
 /*          S A S   S A M P L E   L I B R A R Y                 */
 /*                                                              */
 /*    NAME: CAPEDF                                              */
 /*   TITLE: New EDF Statistics for Goodness-of-Fit Test         */
 /* PRODUCT: QC                                                  */
 /*  SYSTEM: ALL                                                 */
 /*    KEYS: Capability Analysis,                                */
 /*   PROCS: CAPABILITY                                          */
 /*    DATA:                                                     */
 /*                                                              */
 /*     REF:                                                     */
 /*    MISC:                                                     */
 /*                                                              */
 /****************************************************************/

options ps=60 ls=80;


data boxes;
   label weight='Weight in Grams';
   input weight @@;
   cards;
4.489 -5.43 1.686 -2.85 4.746 5.564
2.576 1.438 1.176 -1.00 4.564 4.221
2.971 -1.11 2.661 1.596 9.308 6.076
-4.86 4.013 5.099 1.144 6.608 2.463
3.565 4.764 2.962 11.56 8.601 -4.09
7.987 4.286
;

title1 'New EDF Statistics';
proc capability data=boxes noprint;
   var weight;
   hist / normal(mu=2 sigma=4 color=yellow)
          cfill    = blue
          cbarline = white
          cframe   = gray
          legend   = legend1;
   inset normal(ad adpval cvm cvmpval ksd ksdpval) /
                  pos      = RM
                  cframe   = black
                  ctext    = black
                  cshadow  = black
                  cfill    = gray
                  format   = 8.4;
   legend1 cframe=gray cborder=black;

run;

goptions reset=all;