dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
local_whereExpr = Expr(
:height == 61 & :weight == 128
); // for quick debugging
dt << Graph Builder(
Size( 401, 369 ),
Show Control Panel( 0 ),
Graph Spacing( 4 ),
Variables( X( :height ), Y( :weight ), color( :sex ) ),
Elements( Points( X, Y, Legend( 1 ) ), Smoother( X, Y, Legend( 2 ) ) ),
SendToReport(
Dispatch(
{},
"Graph Builder",
FrameBox,
{Set Graphlet(
Picture(
Show( Namespace( "local" ) << Get Contents() ); //contains :_whereExpr
// New Window("test", //for quick debugging
Eval(
Substitute(
Expr(
H List Box(
Graph Builder(
Show Control Panel( 0 ),
Lock Scales( 1 ),
Variables( X( :sex ), Y( :age ), Color( :sex ) ),
Elements( Heatmap( X, Y, Legend( 5 ) ) )
),
Graph Builder(
Show Control Panel( 0 ),
Lock Scales( 1 ),
Variables( X( :sex ), Y( :age ), Color( :sex ) ),
Elements( Heatmap( X, Y, Legend( 5 ) ) ),
Local DataFilter(
Close Outline( 1 ),
Add Filter( columns( :height, :weight ), Where( __myWhereExpr1__ ), Where( __myWhereExpr2__ ) )
)/*,
SendToReport( // Needen for Jmp 17
Dispatch({},"sex",ScaleBox,{Format( "Best", 9 ), Min( -0.5 ), Max( 1.5 ), Inc( 1 ), Minor Ticks( 0 )}),
Dispatch({},"age",ScaleBox,{Format( "Fixed Dec", 12, 0 ), Min( -0.5 ), Max( 5.5 ), Inc( 1 ), Minor Ticks( 0 )}
)
)*/
)
)
),
Expr( __myWhereExpr1__ ), Arg( Name Expr( local:_whereExpr ), 1 ),
Expr( __myWhereExpr2__ ), Arg( Name Expr( local:_whereExpr ), 2 ),
Expr( __myWhereExpr__ ),
Name Expr( local:_whereExpr )
)
);
)//
)}
)
)
);
