print.tileInfo {deldir} | R Documentation |
Print a summary of tile information.
Description
Print a reasonably readable summary of an object of class
tileInfo
as produced by the tileInfo()
function.
Usage
## S3 method for class 'tileInfo'
print(x, digits = 4, npl = 6, ...)
Arguments
x |
An object of class |
digits |
Integer scalar. The (maximum) number of decimal digits to which the output is to be printed. |
npl |
Integer scalar. “Number per line”. It specifies the
(maximum) number of values per line. Used (only) when printing
the edge lengths component of |
... |
Not used. Present for compatibility with the generic
|
Details
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 list, each entry of which is the vector of edge lengths of the tile. Each edge length is formatted to have a number of digits specified by the
digits
argument. Each list entry may be displayed over a number of lines. The first of these lines is prefixed by an “informative” string indicating the point that determines the tile whose edge lengths are being printed. The string is formed from the identifier of the point. Seedeldir()
,plot.deldir()
andgetNbrs()
. The identifier may consist essentially of the index of the point in the sequence of points that is being tessellated.Succeeding lines, corresponding to the same list entry, are prefixed with a number of blanks so as to produce an aesthetically pleasing alignment.
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.
Value
None.
Author(s)
Rolf Turner rolfurner@posteo.net
See Also
tileInfo()
Examples
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.
}