Revision 2b3a85a87089d85cfbcc67cac5d6778f94719b8d authored by Roger Koenker on 15 July 2019, 13:00:03 UTC, committed by cran-robot on 15 July 2019, 13:00:03 UTC
1 parent 5071707
Raw File
# Wrapper to compute several quantiles of a sample of n observations
# Calls  K.C. Kiwiel's version of Floyd and Rivest's select algorithm
# Caveat Emptor!!  The ks need to  be sorted.
subroutine kuantiles(k,m,n,x)
integer i,j,k(m),m,n
double precision  x(n)

j = 0
do i = 1,m{
	call dsel05(k(i)-j,n-j,x(j+1))
	j = k(i)
back to top