Inset for Areas Under a Fitted Curve

/****************************************************************/
/*          S A S   S A M P L E   L I B R A R Y                 */
/*                                                              */
/*    NAME: CAPINS4                                             */
/*   TITLE: Inset for Areas Under a Fitted Curve                */
/* PRODUCT: QC                                                  */
/*  SYSTEM: ALL                                                 */
/*    KEYS: Capability Analysis, Insets,                        */
/*   PROCS: CAPABILITY                                          */
/*    DATA:                                                     */
/*                                                              */
/* SUPPORT: saswgr                                              */
/*     REF: SAS/QC Software:  Usage and Reference, Version 6,   */
/*          First Edition, Volume 1 and Volume 2                */
/*    MISC:                                                     */
/*                                                              */
/*  Examples in the documentation were created using the        */
/*    statement:  ods listing style=statistical;                */
/*                                                              */
/****************************************************************/

data Wire;
   label Strength='Torsion Strength in lb/in';
   input Strength @@;
   datalines;
25 25 36 31 26 36 29 37 37 20
34 27 21 35 30 41 33 21 26 26
19 25 14 32 30 29 31 26 22 24
34 33 28 26 43 30 40 32 32 31
25 26 27 34 33 27 33 29 30 31
;

ods graphics off;
title 'Torsion Strength of Copper Wire';
legend2 FRAME CFRAME=ligr CBORDER=black POSITION=center;
proc capability data=Wire noprint;
   spec lsl=22 llsl=2  clsl=black cleft=vibg
        usl=38 lusl=20 cusl=black;
   histogram Strength /  cframe = ligr
                         cfill   = bibg
                         legend = legend2
                         normal(color=black noprint fill);
   inset  lsl='LSL' lslpct / cfill=ywh cshadow=dagr;
run;