X <- matrix(stats::rnorm(2000), ncol = 2)
chull(X)
## Not run:
# # Example usage from graphics package
# plot(X, cex = 0.5)
# hpts <- chull(X)
# hpts <- c(hpts, hpts[1])
# lines(X[hpts, ])
# ## End(Not run)
Run the code above in your browser using DataLab