1  | 
x | 
|
del | 
|
alpha | 
|
pow | 
|
oneside | 
|
n | 
|
VAR | 
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 (x, del, alpha = 0.05, pow = 0.8, oneside = FALSE, n = NULL, 
    VAR = NULL) 
{
    del <- abs(del)
    if (is.null(n)) 
        n <- length(x)
    if (is.null(VAR)) 
        VAR = var(x)
    df <- n - 1
    if (!oneside) 
        alpha <- alpha/2
    d <- (del/(qt(pow, df) - qt(alpha, df)))^2
    N <- max(c(n, floor(VAR/d) + 1))
    N
  }
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.