x <- runif(30)
y <- runif(30)
w <- convexhull.xy(x,y)
plot(owin(), main="convexhull.xy(x,y)", lty=2)
plot(w, add=TRUE)
points(x,y)
X <- runifrect(30)
plot(X, main="convexhull.xy(X)")
plot(convexhull.xy(X), add=TRUE)
Run the code above in your browser using DataLab