Automating control chart with multiple date columns and data columns

CharlesIII

Hello,

 

I am trying to automate a way to build control charts from a table formatted like below, 

 

Engine	314-Date	314-Parameter 1	314-parameter 2	314-Parameter ect.	213-parameter 1	213- date	241-parameter 1	241-parameter 2	241-Date
#	date	#	#	#	#	date	#	#	date
#	date	#	#	#	#	date	#	#	date

 

I have this code which gets me close to what I want.

Rcols = dt << GetColumnNames( Continuous, String );
nw = New Window( "Control Charts", myVLB = V List Box() );
	For( i = 1, i <= N Items( Rcols ), i++, 
		cc = Control Chart(
			Sample Label( Column( dt, Rcols[1] ) ),
			KSigma( 3 ),
			Chart Col( Column( dt, Rcols[i] ), Levey Jennings )
		);
		myVLB << Append( Report( cc ) );
		cc << close window;
	);

However, the issue now is trying to find a way to make the sample label the correct date for the ID of the parameters. There are not equal amounts of parameters for each ID so the table is not uniform in that way, which also makes this a little more difficult. 

 

Thanks! 

txnelson

I believe I understand your question. I have taken the approach, to find all of the groups in the data, and to create a separate list of columns that are in each of the lists.  Then, the groups are looped across them, and each of the columns in that list are processed   I don't have a data table to test my solution with, so I believe the code should be used as a good guide of how to solve the problem, but should not be considered a definative solution

Rcols = dt << GetColumnNames( Continuous, String );

// Process the columns into group and separate lists for each group
groupList = {};
For( i = 2, i <= N Items( Rcols ), i++,
	theGroup = Word( 1, Rcols[i], "-" );
	// Check if the group has been seen before
	If( Contains( groupList, theGroup ) > 0,
	
		// If this is a new group, create a list to hold the column names
		Eval( Parse( "Group_" || theGroup || " = {};" ) );
		
		// Add the group name to the groupList
		Insert Into( groupList, theGroup );
		
		// Add the current parameter to the new group list
		Insert Into( "Group_" || theGroup, Rcols[i] );
	,
		// If this isn't a new group list, then add it to the 
		// already existing group list
		Insert Into( "Group_" || theGroup, Rcols[i] )
	);
);	

// Create the display window
nw = New Window( "Control Charts", myVLB = V List Box() );

// Loop across the groups
For( group = 1, group <= N Items( groupList ), group++,

	// Set a standard list name to have the values of the current Group_list
	Eval( Parse( "tempRcols = Group_" || groupList[group] || ";" ) );
	
	// Generate the charts
	For( i = 2, i <= N Items( tempRcols ), i++,
		cc = Control Chart(
			Sample Label( Column( dt, tempRcols[1] ) ),
			KSigma( 3 ),
			Chart Col( Column( dt, tempRcols[i] ), Levey Jennings )
		);
		myVLB << Append( Report( cc ) );
		cc << close window;
	);
);