cav:

In musto101/wilcox_R: What the package does (short line)

Usage

cav(alpha = 0.01, k = 5)

Arguments

alpha
k

Examples

##---- 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 (alpha = 0.01, k = 5) 
{
    z <- tan(pi * (alpha - 0.5))
    val <- (z - atan(z))/((1 - 2 * alpha) * atan(z))
    ntmav <- val + (2 * alpha * (tan(pi * (alpha - 0.5)))^2)/(1 - 
        2 * alpha)^2
    zj <- k
    alphaj <- 0.5 + atan(-k)/pi
    alphaj <- ceiling(100 * alphaj)/100
    zj <- tan(pi * (alphaj - 0.5))
    val <- (zj - atan(zj))/((1 - 2 * alphaj) * atan(zj))
    natmav <- val + (2 * alphaj * (tan(pi * (alphaj - 0.5)))^2)/(1 - 
        2 * alphaj)^2
    return(ntmav, natmav)
  }

musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.