Help with the script. It does output the graph but the Quantiles, With Control,Box Plots, Means & Std Dev, CDF Plot, Mean Error Bars are not shown.
nwindow1 = New Window( "Control",<<Modal,
LineupBox
( (Ncol(2)),
Text Box( "Control Setup” ),control= Text Edit Box(),
Button Box( "OK",
control = control << get text;
),
Button Box("Cancel", <<close window(no save));
)
);
If( nwindow1 == {Button( -1 )}, Stop() );
current data table(para_orient);
Fit Group(
try(Oneway(
Y( :Contact_1) ),
X( :Orientation),
With Control( 1, {char(control)} ),
Quantiles( 1 ),
Means and Std Dev( 1 ),
CDF Plot( 1 ),
Box Plots( 1 ),
Mean Error Bars( 1 ),
Std Dev Lines( 1 ),
SendToReport(
Dispatch({},"Oneway Plot",FrameBox,
{DispatchSeg( Box Plot Seg( 1 ), Line Color( "Red" ) ),
DispatchSeg( Box Plot Seg( 2 ), Line Color( "Red" ) )}),
Dispatch( {}, "CDF Plot", OutlineBox, {SetHorizontal( 1 )} ))));,
try(Oneway(
Y( :Contact_2 ),
X( : Orientation),
With Control( 1, {char(control)} ),
Quantiles( 1 ),Means and Std Dev( 1 ),CDF Plot( 1 ),
Box Plots( 1 ),Mean Error Bars( 1 ),Std Dev Lines( 1 ),
SendToReport(
Dispatch({},"Oneway Plot",FrameBox,
{DispatchSeg( Box Plot Seg( 1 ), Line Color( "Red" ) ),
DispatchSeg( Box Plot Seg( 2 ), Line Color( "Red" ) )}),
Dispatch( {}, "CDF Plot", OutlineBox, {SetHorizontal( 1 )} ))));,
try(Oneway(
Y(:Contact_3),
X( :Orientation),
With Control( 1, {char(control)} ),
Quantiles( 1 ),Means and Std Dev( 1 ),CDF Plot( 1 ),
Box Plots( 1 ),Mean Error Bars( 1 ),Std Dev Lines( 1 ),
SendToReport(
Dispatch({},"Oneway Plot",FrameBox,
{DispatchSeg( Box Plot Seg( 1 ), Line Color( "Red" ) ),
DispatchSeg( Box Plot Seg( 2 ), Line Color( "Red" ) )}),
Dispatch( {}, "CDF Plot", OutlineBox, {SetHorizontal( 1 )} )))),<<{Arrange in Rows(3)},
SendToReport( Dispatch( {}, "Fit Group", OutlineBox, {Set Title("Orientation="||char(ot_01)||"" )} )));