Star Charts-Specifying the Style of Stars
/****************************************************************/
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: SHWSTR2 */
/* TITLE: Star Charts-Specifying the Style of Stars */
/* PRODUCT: QC */
/* SYSTEM: ALL */
/* KEYS: Shewhart Charts, Star Charts, */
/* PROCS: SHEWHART */
/* DATA: */
/* */
/* REF: SAS/QC Software: Usage and Reference, Version 6, */
/* First Edition, Volume 1 and Volume 2 */
/* */
/****************************************************************/
data Paint;
input hour pindexx pindexr pindexn thick
gloss defects dust humid temp;
datalines;
1 5.8 3.0 5 0.2550 0.6800 0.2550 0.2125 0.1700 0.5950
2 6.2 2.0 5 0.2975 0.5950 0.0850 0.1700 0.2125 0.5525
3 3.7 2.5 5 0.3400 0.3400 0.4250 0.2975 0.2550 0.2125
4 3.2 6.5 5 0.3400 0.4675 0.3825 0.3485 0.2125 0.2125
5 4.7 0.5 5 0.5100 0.4250 0.5950 0.4080 0.5100 0.4675
6 5.2 3.0 5 0.5100 0.3400 0.6800 0.5525 0.5525 0.5525
7 2.6 2.0 5 0.4250 0.0425 0.8500 0.5355 0.5525 0.2550
8 2.1 1.0 5 0.3400 0.0170 0.8075 0.5950 0.5950 0.1700
;
data Paintlim;
_var_ = 'pindex ';
_subgrp_ = 'hour ';
_type_ = 'estimate';
_limitn_ = 5;
_sigmas_ = 3;
_lclx_ = 2.395;
_mean_ = 3.875;
_uclx_ = 5.355;
_lclr_ = 0;
_r_ = 2.5625;
_uclr_ = 5.4184;
_stddev_ = 1.10171;
run;
ods graphics on;
title 'Variables Related to Paint Index';
proc shewhart history=Paint limits=Paintlim;
xchart pindex * hour /
nolegend
odstitle = title
starvertices = ( thick gloss defects dust humid temp )
starstart = '1:00'T
startype = wedge;
run;
title 'Variables Related to Paint Index';
proc shewhart history=Paint limits=Paintlim;
xchart pindex * hour /
nolegend
odstitle = title
starvertices = ( thick gloss defects dust humid temp )
starstart = '1:00'T
startype = radial;
run;
title 'Variables Related to Paint Index';
proc shewhart history=Paint limits=Paintlim;
xchart pindex * hour /
nolegend
odstitle = title
starvertices = ( thick gloss defects dust humid temp )
starstart = '1:00'T
startype = spoke;
run;
title 'Variables Related to Paint Index';
proc shewhart history=Paint limits=Paintlim;
xchart pindex * hour /
nolegend
odstitle = title
starvertices = ( thick gloss defects dust humid temp )
starstart = '1:00'T
startype = corona;
run;