__A__ := Array([21,24,16,12,15,5,28,20,31,25,20,24,16,19,10,17,13,22,18,39,30,24,16,19,17,15]);

ProcessControl[CChart]( __A__, 100, title = "Nonconformities for Printed Circuit Boards (n = 100)", labels = ["Sample Number", "Nonconformities"]);

ProcessControl[UChart]( __A__, 5, title = "Nonconformities in Personal Computers (n = 5)", labels = ["Sample Number", "Avg. Nonconform/Units"] );

ProcessControl[PChart]( __A__, 50, title = "Nonconforming Cans (n = 50)", labels = ["Sample Number", "Sample Fraction Nonconforming, p"] );  

ProcessControl[NPChart]( __A__, 50, title = "Nonconforming Cans (n = 50)", labels = ["Sample Number", "Sample Nonconforming, np"] );