Are you looking for something like this?
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Aircraft incidents.jmp" );
dt << New Column( "Work Week", numeric, modeling type( ordinal ), formula( Week Of Year( :event date ) ) );
Current Data Table() << Data Filter(
Location( {175, 175} ),
Mode( Show( 1 ), Include( 1 ) ),
Add Filter(
columns( :Work Week ),
Where( :Work Week == {1, 2, 3, 4, 5, 6, 7, 8} ),
Display( :Work Week, Size( 160, 225 ), List Display )
)
);
Oneway( Y( :Total Fatal Injuries ), X( :Location ) );
Jim