Subversion Repositories bdplot

\name{bdplot}
\alias{bdplot}
%- Also NEED an '\alias' for EACH other topic documented here.
\title{ ~~function to do ... ~~ }
\description{
  ~~ A concise (1-5 lines) description of what the function does. ~~
}
\usage{
bdplot(x, y = NULL, z = NULL, cex.plot = prm$cex.plot, xlab = prm$xlab, ylab = prm$ylab, xlim = range(x, prm$xlim, na.rm = TRUE), ylim = range(prm$ylim, y, na.rm = TRUE), col = prm$col, type = prm$xytype, ...)
}
%- maybe also 'usage' for other objects documented here.
\arguments{
  \item{x}{ ~~Describe \code{x} here~~ }
  \item{y}{ ~~Describe \code{y} here~~ }
  \item{z}{ ~~Describe \code{z} here~~ }
  \item{cex.plot}{ ~~Describe \code{cex.plot} here~~ }
  \item{xlab}{ ~~Describe \code{xlab} here~~ }
  \item{ylab}{ ~~Describe \code{ylab} here~~ }
  \item{xlim}{ ~~Describe \code{xlim} here~~ }
  \item{ylim}{ ~~Describe \code{ylim} here~~ }
  \item{col}{ ~~Describe \code{col} here~~ }
  \item{type}{ ~~Describe \code{type} here~~ }
  \item{\dots}{ ~~Describe \code{\dots} here~~ }
}
\details{
  ~~ If necessary, more details than the description above ~~
}
\value{
  ~Describe the value returned
  If it is a LIST, use
  \item{comp1 }{Description of 'comp1'}
  \item{comp2 }{Description of 'comp2'}
  ...
}
\references{ ~put references to the literature/web site here ~ }
\author{ ~~who you are~~ }
\note{ ~~further notes~~ 

 ~Make other sections like Warning with \section{Warning }{....} ~
}
\seealso{ ~~objects to See Also as \code{\link{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 (x, y = NULL, z = NULL, cex.plot = prm$cex.plot, xlab = prm$xlab, 
    ylab = prm$ylab, xlim = range(x, prm$xlim, na.rm = TRUE), 
    ylim = range(prm$ylim, y, na.rm = TRUE), col = prm$col, type = prm$xytype, 
    ...) 
{
    prm <- .BDPars
    par(cex.main = prm$cex.main, cex.lab = prm$cex.lab, cex.axis = prm$cex.axis)
    par(tcl = prm$tcl)
    par(lwd = prm$lwd)
    par(bty = prm$bty)
    mar <- prm$mar.nolab
    if (!is.na(prm$xlab)) {
        mar[1] <- prm$mar.lab[1]
    }
    if (!is.na(prm$ylab)) {
        mar[2] <- prm$mar.lab[2]
    }
    if (!is.na(prm$toplab)) {
        mar[3] <- prm$mar.lab[3]
    }
    if (!is.na(prm$rightlab)) {
        mar[4] <- prm$mar.lab[4]
    }
    par(mar = mar)
    par(mgp = prm$mgp.global)
    if (prm$method == "xy") {
        if (!is.null(y)) {
            cat("The Bacher/Delff Plotting System (R), (C), TM operating in xy-plotting mode.\n")
            plot(x, y, type = type, xaxt = "n", yaxt = "n", cex = cex.plot, 
                xlab = xlab, ylab = ylab, xlim = xlim, ylim = ylim, 
                ...)
        }
        else if (is.numeric(x)) {
            plot(x, type = type, xaxt = "n", yaxt = "n", cex = cex.plot, 
                xlab = xlab, ylab = ylab, ylim = xlim, ...)
        }
    }
    else if (prm$method == "barplot") {
        barplot(height = x, cex.axis = prm$cex.lab, cex.names = prm$cex.lab, 
            xlab = xlab, ylab = ylab, ...)
        prm$draw.xaxis <- FALSE
        prm$draw.yaxis <- FALSE
    }
    else if (class(x) == "acf") {
        plot(x, xlab = "", ylab = "", xaxt = "n", yaxt = "n", 
            cex = prm$cex.plot, xlim = prm$xlim, ylim = prm$ylim)
    }
    else if (class(x) == "histogram") {
        plot(x, xlab = xlab, ylab = ylab, main = prm$main, xaxt = "n", 
            yaxt = "n")
    }
    else if (class(x) == "trellis") {
        cat("The Bacher/Delff Plotting System (R), (C), TM operating in lattice mode.\n Remeber that labels must written in the lattice object.\n")
        trellis.par.set(prm$myLatticeSettings())
        plot(x)
        prm$draw.xaxis <- FALSE
        prm$draw.yaxis <- FALSE
    }
    else if (prm$method == "image.plot") {
        cat("The Bacher/Delff Plotting System (R), (C), TM operating in image plotting mode.\nx and y axis can not be configured.\n")
        image.plot(x = x, y = y, z = z, xlab = xlab, ylab = ylab, 
            ...)
    }
    if (prm$grid) {
        grid(col = prm$grid.col)
    }
    if (!is.na(prm$grid.v)) {
        if (prm$grid.v == "Def") {
            grid(nx = NULL, ny = NA, col = prm$grid.col)
        }
        else {
            abline(v = prm$grid.v, lty = "dotted", col = grid.col)
        }
    }
    if (!is.na(prm$grid.h)) {
        if (prm$grid.h == "Def") {
            grid(nx = NA, ny = NULL, col = prm$grid.col)
        }
        else {
            abline(h = prm$grid.h, lty = "dotted", col = grid.col)
        }
    }
    if (prm$draw.xaxis) {
        axis(1, mgp = prm$mgp.xaxis, lwd = prm$lwd)
    }
    if (prm$draw.yaxis) {
        axis(2, mgp = prm$mgp.yaxis, lwd = prm$lwd)
    }
    scale <- 1
    if (!is.na(prm$toplab)) {
        mtext(prm$xxlab, side = 3, line = 0.25, cex = prm$cex.lab/scale)
    }
    if (!is.na(prm$rightlab)) {
        mtext(prm$yylab, side = 4, line = 0.25, cex = prm$cex.lab/scale)
    }
  }
}
% Add one or more standard keywords, see file 'KEYWORDS' in the
% R documentation directory.
\keyword{ ~kwd1 }
\keyword{ ~kwd2 }% __ONLY ONE__ keyword per line