A small appetizer:
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
Try( exponent, dt << New Table Variable( "exponent", 1 ) );
dt << new column("weight 2", Formula(:weight ^ exponent )); // added after the comment
New Window( "test",
sb = Slider Box( 0.7, 1.2, sliderValue, dt << set table variable("exponent", sliderValue) ),
gb = dt << Graph Builder(
Size( 437, 413 ),
Lock Scales( 1 ),
Show Control Panel( 0 ),
Variables( X( :height ), Y( :weight 2 ), Overlay( :sex ) ),
Elements(
Points( X, Y, Legend( 1 ) ),
Smoother( X, Y, Legend( 2 ) )
)
);
);