ccsmolyak.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	ccsmolyak.quad(d, k)

`d`	~~Describe `d` here~~
`k`	~~Describe `k` 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 (d, k) 
{
    size <- .C("size_smolyak", as.integer(d), as.integer(d + 
        k), size = integer(1))$size
    z <- .C("quad_smolyak", as.integer(d), as.integer(d + k), 
        pt = double(d * size), wt = as.double(1:size))
    list(pt = t(matrix(z$pt, d, size)), wt = z$wt)
  }