Nothing
noiseParamInit <-
function(noise, y) {
noise$spherical = 0
noise$logconcave = 1
fhandle <- get(paste(noise$type, "NoiseParamInit", sep=""), mode="function")
if (nargs() > 1)
noise = fhandle(noise, y)
else
noise = fhandle(noise)
return (noise)
}
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.