# data(seaweed)
# It is unnecessary to use \code{data} since \code{seaweed} is
# a "first class object". It is "lazily loaded".
dsw <- deldir(seaweed)
isw <- tileInfo(dsw)
# Expand the width of the terminal window.
options(width=120)
isw
tsw <- tile.list(dsw)
plot(tsw,labelPts=TRUE,col.lbls="red",cex=0.5,adj=0.5)
Run the code above in your browser using DataLab