Nothing
on.convex.hull<-function(tri.obj,x,y,eps=1E-16)
{
if(!inherits(tri.obj,"triSht"))
stop("tri.obj must be of class \"triSht\"")
if(length(x)!=length(y))
stop("x and y must be of same length")
n<-length(x)
if(n==0)
stop("length of x (resp. y) is 0")
onhull <- onHull(tri.obj,x,y,eps)
onhull
}
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.