Print a summary of tile information.
Print a reasonably readable summary of an object of class
tileInfo as produced by the tileInfo() function.
## S3 method for class 'tileInfo' print(x, digits = 4, ...)
x |
An object of class |
digits |
The (maximum) number of decimal digits to which the output is to be printed. |
... |
Not used. Present for compatibility with the generic
|
The list produced by tileInfo() is a bit messy and
hard to comprehend, especially if there is a large number
of tiles. This print method produces a screen display which
is somewhat more perspicuous.
There are four components to the display:
A matrix, each row of which is the vector of edge lengths of the tile. The number of columns is the maximum of the lengths of the edge length vectors. Rows corresponding to shorter vectors are filled in with blanks. The row names of the matrix indicate the number of the point corresponding to the tile. Note that this number is the index of the point in the original sequence of points that is being tessellated.
A table of the edge counts of the tiles.
A simple print out of the areas of the tiles (rounded
to a maximum of digits decimal digits).
A simple print out of the perimeters of the tiles (rounded
to a maximum of digits decimal digits).
This screen display is for “looking at” only. In
order to do further calculations on the output of tileInfo
it is necessary to delve into the bowels of x and
extract the relevant bits.
In order to get a decent looking display you may (if there are
tiles with a large number of edges) need to widen the window in
which you are displaying the output and increase the value of the
width option. E.g. use options(width=120).
None.
Rolf Turner r.turner@auckland.ac.nz
tileInfo()
set.seed(179)
x <- runif(100)
y <- runif(100)
dxy <- deldir(x,y,rw=c(0,1,0,1))
ixy1 <- tileInfo(dxy)
print(ixy1)
ixy2 <- tileInfo(dxy,bndry=TRUE)
print(ixy2)
if(require(polyclip)) {
CP <- list(x=c(0.49,0.35,0.15,0.20,0.35,0.42,
0.43,0.62,0.46,0.63,0.82,0.79),
y=c(0.78,0.86,0.79,0.54,0.58,0.70,
0.51,0.46,0.31,0.20,0.37,0.54))
ixy3 <- tileInfo(dxy,clipp=CP)
options(width=120) # And enlarge the console window.
print(ixy3) # 33 tiles are retained.
print(ixy3$perimeters$perComps) # The tiles for points 9 and 94 have
# been split into two components.
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.