1 | pow1(n, Del, alpha)
|
n |
|
Del |
|
alpha |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | ##---- 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 (n, Del, alpha)
{
Del <- abs(Del)
if (alpha <= 0 || alpha >= 1)
stop("alpha must be between 0 and 1")
K11 <- 1 - alpha
K5 <- sqrt(n) * Del
K6 <- n - 1
K14 <- qt(K11, K6)
K7 <- K14 * sqrt(1 + K5 * K5/K6)
K8 <- K5 * sqrt(1 + K14 * K14/K6)
K9 <- K7 - K8
pow1 <- 1 - pt(K9, K6)
pow1
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.