1 | rstmn(x, k1 = 5, k2 = 5)
|
x |
|
k1 |
|
k2 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ##---- 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, k1 = 5, k2 = 5)
{
madd <- mad(x, constant = 1)
med <- median(x)
LM <- sum(x < (med - k1 * madd))
nmUM <- sum(x > (med + k2 * madd))
n <- length(x)
ll <- ceiling((100 * LM)/n)
hh <- ceiling((100 * nmUM)/n)
tp <- min(max(ll, hh)/100, 0.5)
mean(x, trim = tp)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.