Nothing
## The R interface to Knut Petras' SMOLPACK is mostly taken from the
## R package 'gss' by Chong Gu (file "smolyak.R").
ccsmolyak.quad <- function(d, k) {
size <- .C("size_smolyak",
as.integer(d),
as.integer(d + k),
size=integer(1),
PACKAGE="quaddisc"
)$size
z <- .C("quad_smolyak",
as.integer(d),
as.integer(d + k),
pt=double(d * size),
wt=as.double(1:size),
PACKAGE="quaddisc"
)
list(pt=t(matrix(z$pt, d, size)), wt=z$wt)
}
ccsmolyak.size <- function(d, k) {
.C("size_smolyak",
as.integer(d),
as.integer(d + k),
size=integer(1),
PACKAGE="quaddisc"
)$size
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.