Honest Gauge R&R for Gasket Thickness

/****************************************************************/
/*          S A S   S A M P L E   L I B R A R Y                 */
/*                                                              */
/*    NAME: MSAEX4                                              */
/*   TITLE: Honest Gauge R&R for Gasket Thickness               */
/* PRODUCT: QC                                                  */
/*  SYSTEM: ALL                                                 */
/*    KEYS: Honest Gauge R&R                                    */
/*   PROCS: SHEWHART                                            */
/*    DATA:                                                     */
/*                                                              */
/* SUPPORT: saswgr                                              */
/*     REF: Measurement Systems Analysis, Example 4             */
/*                                                              */
/****************************************************************/

data ABC;
   input Operator $ Sample @;
   do i=1 to 2;
      input Trial @;
      output;
   end;
   datalines;
George    1   0.65  0.60
George    2   1.00  1.00
George    3   0.85  0.80
George    4   0.85  0.95
George    5   0.55  0.45
George    6   1.00  1.00
George    7   0.95  0.95
George    8   0.85  0.80
George    9   1.00  1.00
George   10   0.60  0.70
Jane      1   0.55  0.55
Jane      2   1.05  0.95
Jane      3   0.80  0.75
Jane      4   0.80  0.75
Jane      5   0.40  0.40
Jane      6   1.00  1.05
Jane      7   0.95  0.90
Jane      8   0.75  0.70
Jane      9   1.00  0.95
Jane     10   0.55  0.50
Robert    1   0.50  0.55
Robert    2   1.05  1.00
Robert    3   0.80  0.80
Robert    4   0.80  0.80
Robert    5   0.45  0.50
Robert    6   1.00  1.05
Robert    7   0.95  0.95
Robert    8   0.80  0.80
Robert    9   1.05  1.05
Robert   10   0.85  0.80
;

%hongrr(ABC, condition=Operator, value=Trial);