Subscribe Bookmark RSS Feed

Question on use of the local data filter

bthaby1

Community Trekker

Joined:

Feb 23, 2012

I like the local data filter function in that a few graphs can update as the filter is used.   This updating only applies to the underlying

main data table.     I was wondering if you could make a summary of this local data table, then  create a 3rd chart and have this 3rd chart

(expression A3) somehow also update when the filter is used. .   here is the example script. 

Any ideas ?

Also where is this local data table hidden ?

dt = Open("$SAMPLE_DATA/Big Class.jmp");

varlist = {"height","weight"};

A1 = Expr(

  a1vc = dt << Variability Chart(

  Y( Eval( varlist[1] ) ),

  X( :name),

  Max Iter( 100 ),

  Conv Limit( 0.00000001 ),

  Number Integration Abscissas( 128 ),

  Number Function Evals( 65536 ),

  Analysis Type( Name( "Choose best analysis (EMS REML Bayesian)" ) ),

  Process Variation( 0 ),

  Show Points( 0 ),

  Std Dev Chart( 0 ),

  SendToReport(

  Dispatch(

  {"Variability Chart for height"},

  "Variability Chart",

  FrameBox,

  {Frame Size( 200, 180 )}

  ))

  );

);

A2 = Expr(

  a1vc = dt << Variability Chart(

  Y( Eval( varlist[2] ) ),

  X( :name ),

  Max Iter( 100 ),

  Conv Limit( 0.00000001 ),

  Number Integration Abscissas( 128 ),

  Number Function Evals( 65536 ),

  Analysis Type( Name( "Choose best analysis (EMS REML Bayesian)" ) ),

  Process Variation( 0 ),

  Show Points( 0 ),

  Std Dev Chart( 0 ),

  SendToReport(

  Dispatch(

  {"Variability Chart for weight"},

  "Variability Chart",

  FrameBox,

  {Frame Size( 200, 180 )}

  ))

  );

);

A3 = Expr(

    

  subdt = dt << Summary( Group( :age ), Mean( :height ), Mean( :weight ) );

  t1 = Control Chart(

  Sample Label( :age ),

  Group Size( 1 ),

  KSigma( 3 ),

  Chart Col( :Name( "Mean(height)" ), Individual Measurement )

  );

  // I want to figure out how to get this graph using SUBDT to also

  // update when the data filter is used.

);

Load_Dashboard = Expr(

  dashb = New Window( "test",

  v1 = V List Box(

  Data Filter Context Box(

  H List Box(

  df = Current Data Table() << Data Filter(

  Add Filter(columns( :age , :sex),

  Display(:age, Blocks Display ),

  Display(:sex, Blocks Display ),

    ),

  Mode( Show( 1 ), Include( 1 ) ),

  Local ),  // local data filter

  Platform(Current Data Table(),Eval(a1)),

  Platform(Current Data Table(),Eval(a2)),

  Platform(Current Data Table(),Eval(a3)),

  )

  ),

  ),

  );

);

Eval(Load_Dashboard);

// set dashboard window position and size

dashb << Set Window Size( 2400, 3000 );

dashb << Move Window( 3, 3 );

dashb << reshow;

rdf = df << report;