Nothing
.densK.xy <- function(v, x, y, k, hx, hy)
{
output <- .C(C_RdensKXY,
v = as.integer(v),
x = as.double(x),
y = as.double(y),
k = as.double(k),
z = double(length(x)),
hx = as.double(hx),
hy = as.double(hy),
error = integer(1),
PACKAGE = "rebmix")
if (output$error == 1) {
stop("in RdensKXY!", call. = FALSE); return(NA)
}
length(output$x) <- output$v
length(output$y) <- output$v
length(output$z) <- output$v
rm(list = ls()[!(ls() %in% c("output"))])
return(output)
} ## .densK.xy
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.