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) }