how to select rows with a specific number that user input

Question

Hello everyone,

I am working on a project that helps users to pick modules based on their input. For example, if user input 5, the script would give user 5 modules that been selected. Could anyone one help me with the "select" part?

txnelson · Accepted Answer

This should work Names Default To Here( 1 ); dt << Select Where( Column( "Shippable to Reliability?" )[Row()] == 1 ); dtsub = dt << Subset( Selected Rows( 1 ), Output Table( "Best Modules" ) ); dtsub << New Column( "random", formula( Random Uniform() ) ); dtsub = dtsub << sort( by( :random ), order( ascending ), replace table( 1 ) ); dtsub << select where( Row() > 5 ); dtsub << delete rows;
dtsub << delete columns("random");

gzmorgan0 · Accepted Answer

Just for fun, an alternate method.

Names Default To Here( 1 );
dt   = open("$sample_data/big class.jmp");
idx  = Random Shuffle( dt <<  Get Rows Where( Column( "sex" )[]== "F" ) );
//get the matching rows but mix up the order;
show(idx); //for demonstration

//use only 5 of them
dtsub =  << Subset( rows(idx[1::5]), Output Table( "Best Modules" ) );