Hi all,
I have a function which is similar to what I need to have but by using Group by then Fit Spline. So I need to have the plots with different groupings: type, grpcolor, and BP. On the given function, I only have the grpcolor as the grouping. But what I need are these three parameters (type, number, BP). How can I convert these code to a function similar to the given below
Plot sample:
Bivariate( Y( :Cal_I_Jmp ), X( :STO_DCR_TS_LES ),
Fit Where( :BP == "20nm", Fit Spline( 1000, {Line Color( {212, 73, 88} )} ) ),
Fit Where( :BP == "35nm", Fit Spline( 1000, {Line Color( {61, 174, 70} )} ) ),
Fit Where( :BP == "50nm", Fit Spline( 1000, {Line Color( {66, 112, 221} )} ) ),
SendToReport(
Dispatch(
{},
"Bivar Plot",
FrameBox,
{Row Legend(
BP,
Color( 1 ),
Color Theme( "JMP Default" ),
Marker( 0 ),
Marker Theme( "" ),
Continuous Scale( 0 ),
Reverse Scale( 0 ),
Excluded Rows( 0 )
)}
)
)
);Here's the function:
bivpolyfit = Function( { x_param, y_param, grouping },
biv = Bivariate( Y( Column( y_param ) ), X( Column( x_param ) ), GroupBy( Column( grouping ) ),
<< Fit Polynomial( 2, {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 ) << {Min( eval(xmin[j]) ), Max( eval(xmax[j]) )/*, Inc( incr[j] )*/};
rbiv[Axisbox( 1 )] << Tick Font( style( 0 ), size( 9 ) ) << Show Major Grid( 1 ) << Show Minor Grid( 1 ) << Show Minor Ticks( 1 ) << {Min( eval(ymin[j]) ), Max( eval(ymax[j]) )/*, Inc( incr[j] )*/};
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||" vs "||x_param );
rbiv["Polynomial Fit Degree=2 ?"] << Close All Like This;
rbiv[Framebox( 1 )] << Row Legend( Column( grouping ), Color( 1 ), Marker( 0 ), Color Theme("JMP Default"), Continuous Scale( 0 ) );
rbiv[Framebox( 1 )] << Row Legend( Column( rdr ), Color( 0 ), Marker( 1 ), Marker Theme("Solid") );
rbiv[BorderBox(3)] << Delete;
rbiv[BorderBox(2)] << Delete;
pbiv = rbiv[OutlineBox( 1 )] << get picture;ppt9 = OutlineBox("IJMP");
yparam = { "Cal_I_Jmp", "Cal_I_Jmp", "Cal_I_Jmp","Cal_I_Jmp"};
xparam = { "STO_DCR_TS_LES", "STO_DCR_TS_MP", "STO_R", "STO_TS"};
lb = LineupBox(NCol(4));
For(j=1, j<=nitems( xparam ), j++,
bivpolyfit( xparam[j], yparam[j], grpcolor );
lb << append(pbiv);
biv << Close Window;
);
ppt9 << append(lb << get picture);
transdt << Clear;