DM 'LOG; CLEAR; OUT; CLEAR;'; * ODS PRINTER PDF file='C:\COURSES\ST528\SAS\xrchrt21.pdf'; OPTIONS NODATE NONUMBER; DATA in; INPUT sample day shift @@; DO item = 1 TO 4; INPUT index @@; OUTPUT; END; LINES; 1 1 3 218 224 220 231 2 1 1 228 236 247 234 3 1 4 280 228 228 221 4 2 3 210 249 241 246 5 2 1 243 240 230 230 6 2 4 225 250 258 244 7 3 2 240 238 240 243 8 3 1 244 248 265 234 9 3 4 238 233 252 243 10 4 2 228 238 220 230 11 4 4 218 232 230 226 12 4 3 226 231 236 242 13 5 1 224 221 230 222 14 5 4 230 220 227 226 15 5 3 224 228 226 240 16 6 1 232 240 241 232 17 6 4 243 250 248 250 18 6 3 247 238 244 230 19 7 1 224 228 228 246 20 7 4 236 230 230 232 ; DATA in; SET in; IF sample=3 THEN DELETE; * IF sample=3 OR sample=4 OR sample=6 OR sample=8 THEN DELETE; TITLE 'XBAR and R Charts (Sample 3 Removed)'; * TITLE 'XBAR and R Charts (Samples 3,4,6,8 Removed)'; SYMBOL1 V=DOT WIDTH=1; PROC SHEWHART DATA=in; XRCHART index*sample='1' / NPANELPOS=20 ZONES ZONELABELS TESTS = 1 TO 8 LTESTS = 2 TESTS2 = 1 TABLETEST ALLN SPLIT = '/'; LABEL index = 'MEAN/RANGE'; RUN;