polymap.sil {spgam}R Documentation

~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

polymap.sil(poly, add = F, xlab = "", ylab = "", axes = T, cex = 1.2, ...)

Arguments

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~~

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

comp1 Description of 'comp1'
comp2 Description of 'comp2'

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

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

[Package spgam version 1.0 Index]