1 | msmedci(x, alpha = 0.05, nullval = 0)
|
x |
|
alpha |
|
nullval |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ##---- 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, alpha = 0.05, nullval = 0)
{
se <- msmedse(x)
est <- median(x)
ci.low <- est - qnorm(1 - alpha/2) * se
ci.hi <- est + qnorm(1 - alpha/2) * se
test <- (est - nullval)/se
p.value <- 2 * (1 - pnorm(abs(test)))
list(test = test, ci.low = ci.low, ci.hi = ci.hi, p.value = p.value,
median = est)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.