CC.quad: function to do ...
In quaddisc: Quadratic discrepancies

Description Usage Arguments Details Value Note Author(s) References See Also Examples

~~ A concise (1-5 lines) description of what the function does. ~~

1	CC.quad(iN)

`iN`	~~Describe `iN` here~~

~~ If necessary, more details than the description above ~~

~Describe the value returned If it is a LIST, use

`comp1`	Description of 'comp1'
`comp2`	Description of 'comp2'

...

~~further notes~~

~Make other sections like Warning with Warning .... ~

~~who you are~~

~put references to the literature/web site here ~

~~objects to See Also as help, ~~~

##---- 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 (iN) 
{
    vI <- matrix(0:(iN - 1), iN, 1)
    vZ <- as.vector(0.5 - 0.5 * cos(((2 * vI + 1) * pi)/(2 * 
        iN)))
    vD <- c(1, rep(2, iN - 1))/iN
    vK <- matrix(2 * (1:iN) - 1, 1, iN)
    mCt <- cos(pi * (vI %*% vK)/(2 * iN))
    vS <- as.matrix(1:iN)
    vS <- -2/(vS * (vS - 2))
    vS[seq(2, length(vS), by = 2)] <- 0
    vW <- as.vector(t(0.5 * crossprod(vS * vD, mCt)))
    return(list(nodes = vZ, weights = vW))
  }