topic Re: control chart with multiple items how to save summaries in one table in Discussions

control chart with multiple items how to save summaries in one table

qy6b0 — Thu, 18 Aug 2016 03:25:45 GMT

I have a control chart (cc) window with multiple items (i.e. each item has a control chart). In jsl, when I use cc<< Save Summaries, it pops up a summary table for each item. How can I save all summaries in one table with item name identified? Thank you.

Re: control chart with multiple items how to save summaries in one table

Peter_Bartell — Thu, 18 Aug 2016 13:09:51 GMT

As a suggestion, why not just use the hot spot drop down option from the control chart window for Save Summaries? This creates a single JMP data table with column identified quantities for various summary measures.

Re: control chart with multiple items how to save summaries in one table

txnelson — Thu, 18 Aug 2016 13:10:18 GMT

The default action with ,<< Save Summaries is to create a single table for all charts defined for the platform. The example below will produce an example of the combined Summary Table.

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Quality Control/Airport.jmp" );

// Add a column so there is a second charting column

dt<< new column("Random",formula(Random Uniform()));

obj = Control Chart(

Sample Size( :Day ),

KSigma( 3 ),

Chart Col( :Delay, XBar, R ),

Chart Col( :Random, XBar, R )

);

obj << Save Summaries;

Could you clarify your issue?

Re: control chart with multiple items how to save summaries in one table

vheber — Tue, 23 Aug 2016 21:06:06 GMT

How could the same (save all summaries in one table with item name identified) be done if a By-variable is used in the control chart?

Like in this example that creates a chart for ByVar=1 and ByVar=2:

dt = Open( "$SAMPLE_DATA/Quality Control/Airport.jmp" );

dt<< new column("ByVar", Character, formula(left(:Day,1)));

obj = Control Chart(

Sample Size( :Day ),

KSigma( 3 ),

Chart Col( :Delay, XBar ),

By(:ByVar)

);

Re: control chart with multiple items how to save summaries in one table

ian_jmp — Wed, 24 Aug 2016 09:44:33 GMT

If you use the tooltip in the editor, you will see that (when using a 'By' variable), obj is a list. So you could try something like:

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Quality Control/Airport.jmp" );

// Add a column so there is a second charting column

dt<< new column("Random",formula(Random Uniform()));

dt<< new column("By",formula(Random Integer(1, 2)));

obj = Control Chart(

Sample Size( :Day ),

KSigma( 3 ),

Chart Col( :Delay, XBar, R ),

Chart Col( :Random, XBar, R ),

By(:By)

);

For(b=1, b<=NItems(obj), b++, obj[b] << Save Summaries);

Then you have to consolidate the resulting tables of course.

Re: control chart with multiple items how to save summaries in one table

Phil_Brown — Fri, 26 Aug 2016 00:29:58 GMT

qy6b0

veronica.a.heber

You could try the following:

dt = Open( "$SAMPLE_DATA/Quality Control/Airport.jmp" );
dt << New Column( "ByVar", Character, formula( Left( :Day, 1 ) ) );
obj = Control Chart( Sample Size( :Day ), KSigma( 3 ), Chart Col( :Delay, XBar ), By( :ByVar ) );
Current Data Table( dt );
Summarize( byVals = By( :ByVar ) );
res = obj << SaveSummaries;
If( Is List( res ),
 finalTable = res[1] << concatenate( res[2 :: N Items( res )], create source column, outputTableName( "Saved Summaries" ) );
 Try(
 col = Column( finalTable, "Source Table" );
 col << set name( dt:ByVar << get name );
 For( i = 1, i <= N Items( res ), i++,
 col[finalTable << get rows where( Column( dt:ByVar << get name )[] == (res << get name) )] = byVals;
 Close( res, NoSave );
 );
 ,
 finalTable = res
 );
);