1 |
x |
|
q |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (x, q = 0.5)
{
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.