Normal Curve Parameter Displayed in Inset

 /****************************************************************/
 /*          S A S   S A M P L E   L I B R A R Y                 */
 /*                                                              */
 /*    NAME: CAPINORM                                            */
 /*   TITLE: Normal Curve Parameter Displayed in Inset           */
 /* PRODUCT: QC                                                  */
 /*  SYSTEM: ALL                                                 */
 /*    KEYS: Capability Analysis, Insets,                        */
 /*   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
2.661 1.429 3.255 8.032 5.785 -1.39
4.809 1.048 4.788 6.850 3.001 -0.21
3.565 4.764 2.962 11.56 8.601 -4.09
-6.06 -3.29 -3.57 1.000 7.182 -0.71
7.987 4.286
;

Title 'Normal Curve Statistics in the INSET Box';

proc capability data=boxes noprint;
   var weight;
   hist / normal(color=yellow mu=2 sigma=4 noprint)
          cframe   = gray
          cfill    = blue
          cbarline = white
          nocurvelegend;
   inset normal(mu sigma chisq (7.2) df pchisq) / cframe  = black
                                                  ctext   = black
                                                  cshadow = black
                                                  cfill   = gray
                                                  pos     = LM;
run;

proc capability data=boxes noprint;
   var weight;
   hist / normal(color=yellow mu=2 sigma=4 noprint)
          cframe   = gray
          cfill    = blue
          cbarline = white
          nocurvelegend;
   inset normal(ad adpval cvm cvmpval ksd ksdpval) /
                                            cframe  = black
                                            ctext   = black
                                            cfill   = gray
                                            pos     = LM
                                            format  = 8.4;
run;


proc capability data=boxes noprint;
   var weight;
   hist / normal(color=yellow mu=2 sigma=4 noprint)
          cframe   = gray
          cfill    = blue
          cbarline = white
          nocurvelegend;
   inset normal(mu sigma chisq df pchisq
                ad adpval cvm cvmpval ksd ksdpval)
                                          / cframe  = black
                                            ctext   = black
                                            cshadow = dagr
                                            cfill   = gray
                                            pos     = RM
                                            format  = 8.4;
run;

goptions reset=all;