//! /* This script requires JMP® to run. Download a 30-day free trial from jmp.com/trial */ Names Default To Here( 1 ); dt = Open( "$SAMPLE_DATA/Quality Control/Adverse Reactions.jmp" ); obj = Control Chart Builder( Show Control Panel( 0 ), Class( Rare Event ), Variables( Subgroup( :Date of ADE ), Y( : Days since Last ADE ) ), Chart( Points( Statistic( "Count" ) ), Limits( Sigma( "Negative Binomial" ) ), Warnings( Test Beyond Limits( 1 ) ) ), SendToReport( Dispatch( {}, "graph title", TextEditBox, { Set Text( "T chart of Days since Last ADE" )} ) ) );