Rscript to select top 5% of sensitive sitse