IR Chart label and LCL

KST-CPT

I have the following script which works well, it creates multiple IR charts based off values in a list generated from the unique values from a datatable.  I would like to label each chart the same as the value in the list it was generated from.  I would also like to set all my lower control limits to 0.   I can't see how to do this.

 

summarize(SNTime2, UnitNames = by(Column("Sub_name")));
count_UnitNames = nitems(UnitNames);

New Window( "M11 Runtime times Summary - Control Chart",
V List Box(
for(i=1, i<=count_UnitNames, i++,
Control Chart(
Sample Label( :Date ),
Group Size( 1 ),
KSigma( 3 ),
Chart Col( :Name( "Mean(Runtime)" ), Individual Measurement ),
Where( :Sub_name == UnitNames[i] ),
SendToReport(
Dispatch(
{"Individual Measurement of Mean(Runtime)"},
"2",
ScaleBox,
{Format( "hr:m:s", 11, 0 )}
)));
);
));

 

Thanks

txnelson

The approaches I took to solve this issue was to use a saved limits table, where only a lower limit with the value of "0" is specified and also an example of specifying the LCL in the IM chart specification.

Names Default To Here( 1 );

// Setup some sample data
SNTime2 = Open( "$SAMPLE_DATA/Quality Control/Phase Historical Data.jmp" );
SNTime2:Force << set name("Mean(RunTime)");
SNTime2:Site << set name("Sub_name") << data type( character );
SNTime2 << New Column("Date",format("m/d/y"),formula(today()));

// create a limits table with just a lower limit of zero and save it
dtlim = New Table( "Limits",
	Add Rows( 1 ),
	New Column("_LimitsKey",
		Character( 4 ),
		"Nominal",
		Set Values( {"_LCL"} )
	),
	New Column("Mean(Runtime)",
		Numeric,
		"Continuous",
		Format( "Best", 10 ),
		Set Values( [0] ),
		Set Display Width
	)
);

close( dtlim, save("$TEMP\limits.jmp"));

// Run your code
Summarize( SNTime2, UnitNames = by( Column( "Sub_name" ) ) );
count_UnitNames = N Items( UnitNames );

New Window( "M11 Runtime times Summary - Control Chart",
	V List Box(
		For( i = 1, i <= count_UnitNames, i++,
			Control Chart(
				Sample Label( :Date ),
				Group Size( 1 ),
				KSigma( 3 ),
				Chart Col( :Name( "Mean(Runtime)" ), Individual Measurement ),
				// Read in limits
				Get Limits( "$TEMP\limits.jmp" ),
				Where( :Sub_name == UnitNames[i] ),
				SendToReport(
					Dispatch(
						{"Individual Measurement of Mean(Runtime)"},
						"2",
						ScaleBox,
						{Format( "hr:m:s", 11, 0 )}
					)
				)
			)
		)
	)
);

Documentation on limits table usage can be found in the Quality and Process Methods book

     Help==>Books==>Quality and Process

and in the Scripting Index

     Help==>Scripting Index==>Control Chart

 

You can also just use the LCL specification on the IM chart to get the same results

// You can also just use the LCL paramater on the IM specification
Summarize( SNTime2, UnitNames = by( Column( "Sub_name" ) ) );
count_UnitNames = N Items( UnitNames );

New Window( "M11 Runtime times Summary - Control Chart",
	V List Box(
		For( i = 1, i <= count_UnitNames, i++,
			Control Chart(
				Sample Label( :Date ),
				Group Size( 1 ),
				KSigma( 3 ),
				Chart Col( :Name( "Mean(Runtime)" ), Individual Measurement( LCL(0)) ),
				Where( :Sub_name == UnitNames[i] ),
				SendToReport(
					Dispatch(
						{"Individual Measurement of Mean(Runtime)"},
						"2",
						ScaleBox,
						{Format( "hr:m:s", 11, 0 )}
					)
				)
			)
		)
	)
);