View source: R/print.tileInfo.R
print.tileInfo | R Documentation |
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, npl = 6, ...)
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
|
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.
See deldir()
, plot.deldir()
and
getNbrs()
. 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.
None.
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.
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.