Names Default To Here( 1 );
dt = Open( "$Sample_data/iris.jmp" );
dt << Graph Builder(
Transform Column( "Transform[Sepal length]", Formula( :Sepal length ) ),
Size( 491, 506 ),
Variables(
X( :Sepal length ),
Y( :Petal length ),
Y( :"Transform[Sepal length]"n, Position( 1 ) )
),
Elements( Points( X, Y( 1 ), Legend( 6 ) ), Formula( X, Y( 2 ), Legend( 8 ) ) ),
SendToReport(
Dispatch( {"Points"}, "", OutlineBox, {Close( 0 )} ),
Dispatch( {"Formula"}, "", OutlineBox, {Close( 0 )} )
)
);
dt << Graph Builder(
Transform Column( "Transform[Sepal length]", Formula( :Sepal length ) ),
Size( 443, 462 ),
Show Control Panel( 0 ),
Variables(
X( :Sepal length ),
Y( :Petal length ),
Y( :"Transform[Sepal length]"n, Position( 1 ) )
),
Elements( Points( X, Y( 1 ), Legend( 6 ) ), Formula( X, Y( 2 ), Legend( 8 ) ) ),
SendToReport(
Dispatch(
{},
"400",
ScaleBox,
{Legend Model(
8,
Level Name( 0, "1:1 Line", Item ID( "Transform[Sepal length]", 1 ) )
)}
),
Dispatch(
{},
"graph title",
TextEditBox,
{Set Text( "Petal length is usually smaller than Sepal length" )}
),
Dispatch( {}, "Y title", TextEditBox, {Set Text( "Petal length" )} )
)
);
