# NOT RUN {
if( require(fields) & require(alphahull) ) {
pts <- ChicagoO3$x
rownames(pts) <- LETTERS[1:20]
Vcells <- delvor(pts)
plot(Vcells,wlines='vor',pch='.')
text(pts,rownames(pts))
Amat <- tessellation_adjacency_matrix(pts)
}
# }
Run the code above in your browser using DataLab