Here is an example of how to do that taken from the Scripting Index
Help==>Scripting Index==>Response Screening==>Get PValues
Names Default To Here( 1 );
Open( "$Sample_Data/Probe.jmp" );
obj =
Response Screening(
X( :Process ),
Y( Eval( 8 :: 394 ) ),
Save Outlier Indicator
);
dtOut = obj << Get PValues ;
show( dtOut );
dtOut << Select Where( :RSquare > .95 );
I modified it very slightly, to add the pointer to the "PValues" data table which you can then use to do the selection of the RSquare values. I do recomment that you examine the FDR Logworth values. When doing so many tests, the FDR Logworth will help you determine which of the tests are real, and which are due to alpha slipping.
Jim