Mean Chart-Tests for Special Causes Applied
/****************************************************************/
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: SHWTEST */
/* TITLE: Mean Chart-Tests for Special Causes Applied */
/* PRODUCT: QC */
/* SYSTEM: ALL */
/* KEYS: Shewhart Charts, Tests for Special Causes, */
/* PROCS: SHEWHART */
/* DATA: */
/* */
/* REF: SAS/QC Software: Usage and Reference, Version 6, */
/* First Edition, Volume 1 and Volume 2 */
/* */
/****************************************************************/
data Parts;
input Sample PartgapX PartgapR;
PartgapN=5;
label PartgapX='Mean of Gap Width'
Sample ='Sample Index';
datalines;
1 270 35
2 258 25
3 248 24
4 260 39
5 273 29
6 260 21
7 259 37
8 248 37
9 260 28
10 255 19
11 268 36
12 253 36
13 273 29
14 275 22
15 257 24
16 269 41
17 249 36
18 264 31
19 258 25
20 248 36
21 248 30
;
ods graphics on;
title 'Tests for Special Causes Applied to Gap Width Data';
proc shewhart history=Parts;
xchart Partgap*Sample/ tests = 1 to 5
odstitle = title
tabletests
nolegend
tablecentral
tablelegend
zonelabels;
run;