R/plot.csFSSgr.R

Defines functions plot.csFSSgr

Documented in plot.csFSSgr

plot.csFSSgr <-
function (x, plotclust = TRUE, plotscale = TRUE, sollabels=FALSE, ...) 
{
    if (plotscale == TRUE) {
        if (sollabels==FALSE)
		plot(x$epscale[, 1], x$epscale[, 2], ...)
        else	{
		plot(x$epscale[, 1], x$epscale[, 2], type="n", ...)
		text(x$epscale[, 1], x$epscale[, 2], labels=as.character(x$epclust$labels))
		}
    }
    if (plotclust == TRUE) {
        plot(x$epclust, ...)
    }
}

Try the costat package in your browser

Any scripts or data that you put into this service are public.

costat documentation built on May 29, 2017, 2:54 p.m.