This widget could not be displayed.
Created:
Oct 6, 2020 11:11 PM
| Last Modified:
Oct 6, 2020 8:11 PM
(331 views)
| Posted in reply to message from ThuongLe 10-06-2020
htt is my 3rd parameter
ht is a column name
This is my function:
bivht = Function( { x_param, y_param, htt },
biv = Bivariate( Y( Column( y_param ) ), X( Column( x_param ) ), GroupBy( column( ht ) ),
<< Fit Spline( 1000, {Line Width( 2 )}));
rbiv = biv << Report;
rbiv[Framebox( 1 )] << {Marker Size( 3 )};
rbiv[Axisbox( 2 )] << Tick Font( style( 0 ), size( 9 ) ) << Show Major Grid( 1 ) << Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
rbiv[Axisbox( 1 )] << Tick Font( style( 0 ), size( 9 ) ) << Show Major Grid( 1 ) << Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
rbiv[TextEditBox( 2 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
rbiv[TextEditBox( 1 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
rbiv[Outline Box( 1 )] << Set Title( y_param||" by "||x_param );
rbiv["Smoothing Spline Fit, lambda=1000 ?"] << Close All Like This;
rbiv[Framebox( 1 )] << Row Legend( Column( ht ), Color( 1 ), Marker( 0 ), Color Theme("JMP Default"), Continuous Scale( 0 ) );
rbiv[BorderBox(2)] << Delete;
pbiv = rbiv[OutlineBox( 1 )] << get picture;
);
This is how I call my function:
lb = LineupBox(NCol(4));
For(j=1, j<=nitems( xparam ), j++,
bivht( xparam[j], yparam[j], h );
lb << append(pbiv);
biv << Close Window;
);
ppt9 << append(lb << get picture);