Question 8.3

Using the defintion that to get the \(k^{th}\) percentile you simply rake the observations and select then entry which is \(k\times n\). ref

resultsOrig <- c(rep.int(100,15),rep.int(200,135),rep.int(300,201),rep.int(400,150),
             rep.int(500,125),rep.int(600,94),rep.int(700,30),rep.int(800,25),
             rep.int(900,30),rep.int(1000,30),rep.int(1100,30),rep.int(1200,25),
             rep.int(1300,25),rep.int(1400,30),rep.int(1500,25),rep.int(1600,20),
             rep.int(1800,9),rep.int(1900,1))
resultsNew <- c(rep.int(100,15),rep.int(200,135),rep.int(300,201),rep.int(400,150),
             rep.int(500,125),rep.int(600,94),rep.int(700,30),rep.int(800,25),
             rep.int(900,30),rep.int(1000,30),rep.int(1100,30),rep.int(1200,25),
             rep.int(1300,25),rep.int(1400,30),rep.int(1500,25),rep.int(1600,20),
             rep.int(1700,10))

resultsOrig[.99*length(resultsOrig)]

## [1] 1600

resultsNew[.99*length(resultsNew)]

## [1] 1600