# NOT RUN {
# For plotting
data(sicalis)
vis.sicalis <- vismodel(sicalis, visual = "avg.uv")
tcs.sicalis <- colspace(vis.sicalis, space = "tcs")
plot(tcs.sicalis)
# Convex hull
vol(tcs.sicalis, type = "convex")
# Alpha-shape
vol(tcs.sicalis, type = "alpha", avalue = 1)
# }
Run the code above in your browser using DataLab