//!
/* This script requires JMP® to run. Download a 30-day free trial from jmp.com/trial */
Open( "$SAMPLE_DATA/Quality Control/Coating.jmp") << Control Chart Builder( Variables( Subgroup(:Sample), Y(:Weight) ), Chart( Position( 1 ), Points( Statistic( "Average" ) ), Limits( Sigma( "Range" ) ) ), Chart( Position( 2 ), Points( Statistic( "Standard Deviation" ) ), Limits( Sigma( "Standard Deviation" ) ) ) );