Removing 5th percentile from a dataset

[#1]

Does anyone have a jsl snippet of code that can remove the 5th percentile from a dataset? I've tried using the table summary.
Might be able to do it with the distribution chart.

[#2]

You could also use Col Quantile() function

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Big Class.jmp");

rows_of_interest = dt << Get Rows Where(:height > Col Quantile(:height, 0.8));

wait(1); // for demo purposes
dt << Delete Rows(rows_of_interest);

[#3]

@jthi Thank you appreciate for any solution..