ondrej-kvasnovsky · June 5, 2015 22:11
diff --git a/convexHull.R b/convexHull.R
 convexHull <- function(x)
 {
  indices <- chull(x[,1], x[,2])
  points <- x[indices,]
  points
 }
 convexHullFactory <- function()
 {
  list(name=convexHull,udxtype=c("transform"),intype=c("float","float"), outtype=c("float","float"), outnames=c("x","y"))
 }
	convexHull <- function(x)
	{
	indices <- chull(x[,1], x[,2])
	points <- x[indices,]
	points
	}
	convexHullFactory <- function()
	{
	list(name=convexHull,udxtype=c("transform"),intype=c("float","float"), outtype=c("float","float"), outnames=c("x","y"))
	}