Nothing
"in.chull" <-
function (x0,y0,x,y)
{
hl <- chull(x,y)
n <- length(hl)
hl<-hl[n:1]
n0 <- length(x0)
if(length(y0)!=n0)
stop("length of x0 and y0 differ!")
ret <- .Fortran("inplg",
as.double(c(x[hl],0)),
as.double(c(y[hl],0)),
as.integer(n),
as.double(x0),
as.double(y0),
as.integer(n0),
inhull = integer(n0),
PACKAGE="sgeostat")
as.logical(ret$inhull)
}
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.