Nothing
nntsABDensitySymmetric<-
function (cpars = c(0, 0), M = 0, theta)
{
size <- length(cpars)
if ((size%%2) == 1)
return("Length of cpar must be an even number")
if (size < 2 * M) {
temp <- size/2 + 1
cparscorr <- c(cpars[1:(size/2)], array(0, (M - temp +
1)), cpars[temp:size], array(0, (M - temp + 1)))
cpars <- cparscorr
cat("Warning: Missing parameters set to 0\n")
}
ab <- nntsABcoefficientsSymmetric(cpars, M)
y <- 1/(2 * pi)
for (k in 1:M) {
y <- y + ab[k] * cos(k * theta) + ab[(k + M)] * sin(k *
theta)
}
return(y)
}
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.