Hi DS,
Apologies for late replay, got quite busy lately.
So here is simplify version of my script, just would like the combo box chosen argument to be included in the column name which will then help to choose correct Control limits table etc.
At this point the script is not unable to understand the argument.
Names Default To Here( 1 );
New Window( "Data selection",
<<Modal,
Panel Box( "Select a Date Range",
Lineup Box( N Col( 1 ),
text box("Chart ID"),
rr_cb = Combo Box( {"D0585DI", "D0585IG","D0585L3","D0585L2", "D0585L1"}, <<Set Width( 5 ) ))),
H List Box(
Button Box( "OK",
<<Set Function(
Function( {self},
layer = rr_cb << GetText;
)
)
),
Button Box( "Cancel" )
)
);
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
//changing the "weight"" column name to RSM_"whichever chosen argument from combo box"
:weight << Set Name("RSM_"||layer);
//Creat control chart using RSM_"whichever choosen argument from combo box"
dt <<
Control Chart(
Sample Label( :name),
Chart Col(
:"RSM_"||layer,
Levey Jennings(
Show Zones( 1 ),Shade Zones( 1 ),
Test 1( 1 ),
Test 2( 1 ),
Test 5( 1 ),
Test 6( 1 ),
Test Beyond Limits( 1 )
),
Capability(
Distribution(
Continuous Distribution(
Column(:"RSM_"||layer),
Quantiles( 0 ),
Horizontal Layout( 1 ),
Vertical( 0 ),
Outlier Box Plot( 0 ),
Normal Quantile Plot( 1 ),
//Fit Distribution( "All" ),
Process Capability(
Use Column Property Specs,
Process Capability Analysis(
Process Summary( 1 ),
Nonconformance( 0 ),
Within Sigma Capability( 1 ),
Histogram( 1, Show Within Sigma Density( 1 ) )
)
),
Customize Summary Statistics( Skewness( 1 ) ),
)
)
)
));