Nothing
NWW <-
function(covariate, x, kernel="gaussian", bw) {
spa <- NULL
len <- length(covariate)
listg <- .C( "NWWeightsKernel", as.double(covariate), as.integer(len),
as.double(x), as.double(bw), as.character(kernel),
weight = double(len) )
return(listg$weight)}
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.