| polymap.sil {spgam} | R Documentation |
~~ A concise (1-5 lines) description of what the function does. ~~
polymap.sil(poly, add = F, xlab = "", ylab = "", axes = T, cex = 1.2, ...)
poly |
~~Describe poly here~~ |
add |
~~Describe add here~~ |
xlab |
~~Describe xlab here~~ |
ylab |
~~Describe ylab here~~ |
axes |
~~Describe axes here~~ |
cex |
~~Describe cex here~~ |
... |
~~Describe ... here~~ |
~~ If necessary, more details than the description above ~~
~Describe the value returned If it is a LIST, use
comp1 |
Description of 'comp1' |
comp2 |
Description of 'comp2' |
...
....
~~further notes~~
~Make other sections like Warning with section{Warning }{....} ~
~~who you are~~
~put references to the literature/web site here ~
~~objects to See Also as help, ~~~
##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function(poly, add = F, xlab = "", ylab = "", axes = T, cex=1.2,...)
{
pty.old <- par("pty")
if(pty.old != "s")
warning("polymap: plot type not square.")
if(!add) {
xrnge <- range(poly[, 1], na.rm = T)
yrnge <- range(poly[, 2], na.rm = T)
xd <- xrnge[2] - xrnge[1]
yd <- yrnge[2] - yrnge[1]
if(xd > yd) {
xplot <- xrnge
yplot <- NULL
yplot[1] <- ((yrnge[2] + yrnge[1])/2) - xd/2
yplot[2] <- ((yrnge[2] + yrnge[1])/2) + xd/2
}
else {
yplot <- yrnge
xplot <- NULL
xplot[1] <- ((xrnge[2] + xrnge[1])/2) - yd/2
xplot[2] <- ((xrnge[2] + xrnge[1])/2) + yd/2
}
par(pty = "s")
plot(poly, xlim = xplot, ylim = yplot, type = "n", axes = axes,
xlab = xlab, ylab = ylab,mgp=c(2.6,2,0),cex=cex)
}
par(pty = pty.old)
invisible(0)
}