Control Chart - Gets limits but doesn't apply them also control charts can't save to data table

AlexS

Hi All

I have pieced together the below code and it creates the Control Charts and brings up the limits but doesn't actually apply them? The control charts also do not seem to have the ability to save back the data table unless i re run it in a new window?

I understand there is a new script function but not sure how it applies to my code?appreciate all help given!

 

 

Names Default To Here( 1 );
dt = Current Data Table();

cc = dt << Get Column Names( numeric, "Continuous" );

nw1 = New Window( "Control Charts" );

For( i = 1, i <= N Items( cc ), i++, 
Current Data Table( dt );
 obj = dt<< Control Chart(
	Sample Label( :YYYYMM ),
	Group Size( 1 ),
	KSigma( 3 ),
 Chart Col( As Column( cc[i] ) ), 
 Chart Type(Individual Measurement) ,
			Get Limits (
		"C:\Users\Limitsw.jmp"
		));
	nw1 << append( Report( obj ) );
	
	obj << Close Window;

);

 

 

 

txnelson

Here is a simple modification to your script that is a code generator that creates the code required to generate all of the control charts and to save that code to the data table

Names Default To Here( 1 );
dt = current data table();

cc = dt << Get Column Names( numeric, "Continuous" );

// Create a string variable that contains all of the JSL required to create
// and save the control charts to the data table
theExpr = "dt << new script(\!"Control Charts\!", nw=New window(\!"The Control Charts\!"";
For( i = 1, i <= N Items( cc ), i++, 

	obj = dt << Control Chart(
		invisible, 
	
		Sample Label( :Month Alerted ),
		Chart Col( cc[i], Individual Measurement ),
		Get Limits( "C:\Users\Limits.jmp" ), 

	);

	theScript = char(obj << get script);
	theExpr = theExpr || "," || theScript;
);
theExpr = theExpr || "));";
// Run the created string variable
eval(parse(theExpr));