qest <-
function(x,q=.5){
#
# Compute an estimate of qth quantile
# using a single order statistic
#
x<-elimna(x)
if(q<=0 || q>=1)stop("q must be > 0 and < 1")
n<-length(x)
xsort<-sort(x)
iq <- floor(q * n + 0.5)
qest<-NA
if(iq>0 || iq<=n)qest<-xsort[iq]
qest
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.