names default to here(1);
random reset(12);
dt = New Table( "Local Data Filter Example Data",
Add Rows( 20 ),
New Column( "Batch",
Numeric,
"Continuous",
Format( "Best", 12 ),
Set Values( [1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5] )
),
New Column( "Status",
Character,
"Nominal",
Set Selected,
Set Values(
{"", "", "", "", "", "", "", "", "", "", "", "", "P", "P", "P", "P", "P",
"P", "P", "P"}
)
),
New Column( "Parameter",
Character,
"Nominal",
Set Values(
{"temp", "temp", "pressure", "pressure", "temp", "temp", "pressure",
"pressure", "temp", "temp", "pressure", "pressure", "temp", "temp",
"pressure", "pressure", "temp", "temp", "pressure", "pressure"}
)
),
New Column( "Result",
Numeric,
"Continuous",
Format( "Best", 12 ),
Formula( Random Normal( If( :Parameter == "temp", 1, 100 ), 3 ) ),
)
);
dt << rerun formulas;
dt:Result << delete formula;
New Window("Control Fhart Filtering Example",
Show Menu( 0 ), Show Toolbars( 0 ),
h list box(
dt << Data Filter(
Location( {1927, 353} ),
Mode( Select( 0 ), Include( 1 ) ),
Add Filter( columns( :Status ), Where( Is Missing( :Status ) ) )
),
dt << Control Chart Builder(
Variables( Y( :Result ) ),
Show Control Panel( 0 ),
Local Data Filter(
Add Filter( columns( :Parameter ), Where( :Parameter == "temp" ) )
),
SendToReport(
Dispatch( {}, "", ScaleBox,
{Min( -0.039375 ), Max( 20.435625000000002 )}
)
)
)
)
);