1 |
x |
|
y |
|
alpha |
|
nse |
|
liw |
|
aui |
|
ali |
|
err |
|
tr |
|
ylim |
|
sfrac |
|
gap |
|
add |
|
col |
|
lwd |
|
slty |
|
xlab |
|
ylab |
|
... |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | ##---- 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, y = NULL, alpha = 0.05, nse = 2, liw = uiw, aui = NULL,
ali = aui, err = "y", tr = 0, ylim = NULL, sfrac = 0.01,
gap = 0, add = FALSE, col = par("col"), lwd = par("lwd"),
slty = par("lty"), xlab = "Group", ylab = NULL, ...)
{
if (!is.null(y)) {
if (is.matrix(x))
stop("When y is given, x should not be a matrix")
if (is.list(x))
stop("When y is given, x should not be in list mode")
rem = x
x = list()
x[[1]] = rem
x[[2]] = y
}
if (is.matrix(x))
x <- listm(x)
mval <- NA
if (!is.list(x) && is.null(y))
stop("This function assumes there\n are two or more groups")
aui = NA
ali = NA
for (j in 1:length(x)) {
mval[j] <- median(x[[j]], na.rm = TRUE)
temp = sint(x[[j]], alpha = alpha, pr = FALSE)
ali[j] = temp[1]
aui[j] = temp[2]
}
plotCI(mval, y = NULL, , liw = uiw, aui = aui, ali = ali,
err = "y", ylim = NULL, sfrac = 0.01, gap = 0, add = FALSE,
col = par("col"), lwd = par("lwd"), slty = par("lty"),
xlab = xlab, ylab = ylab)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.