Names default to here(1);
dt = Open("$Sample_data/Car Physical Data.jmp");
New Window("Compare",
H List Box(
Bivariate(
Y( :Weight ),
X( :Displacement ),
Fit Spline( 0.05, Standardized, {Line Color( {61, 174, 70} )} ),
Where( :Country == "Japan" )
),
Graph Builder(
Size( 400, 320 ),
Show Control Panel( 0 ),
Variables( X( :Displacement ), Y( :Weight ), Overlay( :Country ) ),
Elements(
Points( X, Y, Legend( 14 ) ),
Smoother( X, Y, Legend( 15 ), Lambda( 0.05 ) )
),
Local Data Filter(
Close Outline( 1 ),
Add Filter( columns( :Country ), Where( :Country == "Japan" ) )
)
)
)
);
