1 |
x |
|
nn |
|
y |
|
n |
|
alpha |
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 = sum(y), nn = length(y), y = NULL, n = NA, alpha = 0.05)
{
if (!is.null(y)) {
y = elimna(y)
nn = length(y)
}
if (nn == 1)
stop("Something is wrong: number of observations is only 1")
cis = LCO.CI(nn, 1 - alpha, 3)
ci = cis[x + 1, 2:3]
list(phat = x/nn, ci = ci, n = nn)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.