<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />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;
