Subversion Repositories bdplot

\name{bdinit}
\alias{bdinit}
%- 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{
bdinit(mfrow = c(1, 1), columns = 1, half = FALSE, quadratic = FALSE)
}
%- maybe also 'usage' for other objects documented here.
\arguments{
  \item{mfrow}{ ~~Describe \code{mfrow} here~~ }
  \item{columns}{ ~~Describe \code{columns} here~~ }
  \item{half}{ ~~Describe \code{half} here~~ }
  \item{quadratic}{ ~~Describe \code{quadratic} 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 (mfrow = c(1, 1), columns = 1, half = FALSE, quadratic = FALSE) 
{
    .BDPars <- list()
    .BDPars$figdir <- "figs/"
    .BDPars$paper <- "b5"
    .BDPars$filename <- NA
    .BDPars$method <- "xy"
    .BDPars$xytype <- "l"
    .BDPars$xlab <- "longxlabel"
    .BDPars$ylab <- "longylabel"
    .BDPars$toplab <- NA
    .BDPars$rightlab <- NA
    .BDPars$xlim <- NULL
    .BDPars$ylim <- NULL
    .BDPars$draw.xaxis <- TRUE
    .BDPars$draw.yaxis <- TRUE
    .BDPars$grid <- FALSE
    .BDPars$grid.lwd <- 0.3
    .BDPars$grid.h <- NA
    .BDPars$grid.v <- NA
    .BDPars$grid.col <- "grey50"
    .BDPars$cex.plot <- 0.4
    .BDPars$cex.main <- 0.7
    .BDPars$cex.lab <- 0.6
    .BDPars$cex.axis <- 0.5
    .BDPars$lwd <- 0.5
    .BDPars$tcl <- -0.2
    .BDPars$cex.legend <- 0.4
    .BDPars$pos.legend <- "topright"
    .BDPars$bg.legend <- "white"
    .BDPars$col <- "black"
    .BDPars$bty <- "o"
    .BDPars$pch <- 21
    .BDPars$mar.nolab <- c(1.5, 1, 0.4, 0.3)
    .BDPars$mar.lab <- c(2.1, 2.1, 1.9, 1.9)
    mar.lab.half <- c(2.1, 1.9, 1.9, 1.9)
    .BDPars$mgp.xaxis <- c(1, -0.1, 0)
    .BDPars$mgp.yaxis <- c(1, 0.15, 0)
    .BDPars$mgp.global <- c(0.8, 0.15, 0)
    .BDPars$xlabLine <- 0.9
    .BDPars$ylabLine <- 1.1
    .BDPars$color.palette <- colorRampPalette(c("#3c1900", "#fef7b7"))
    .BDPars$color.palette2 <- colorRampPalette(c("#3c1900", "#ffffff"))
    .BDPars$colpal.heat <- colorRampPalette(c("#ff0000", "#0000ff"))
    .BDPars$colpal.ml <- colorRampPalette(c("#ff0000", "#00ff00", 
        "#0000ff"))
    .BDPars$colpal.wyr <- colorRampPalette(c("#ffffff", 7, "#ff0000"))
    .BDPars$colpal.wgr <- colorRampPalette(c("#ffffff", "#00ff00", 
        "#ff0000"))
    .BDPars$colpal <- .BDPars$colpal.wgr
    .BDPars$b5.width <- 4.782
    if (.BDPars$paper == "b5") {
        if (all(mfrow == c(1, 1)) & columns == 1) {
            if (half) {
                .BDPars$width <- 2.354
                .BDPars$height <- 2.15
                .BDPars$mar.lab <- mar.lab.half
            }
            else if (quadratic) {
                .BDPars$width <- .BDPars$b5.width
                .BDPars$height <- .BDPars$b5.width
            }
            else {
                .BDPars$width <- .BDPars$b5.width
                .BDPars$height <- 2.7
            }
        }
        else if (all(mfrow == c(2, 1)) & columns == 1) {
            .BDPars$width <- .BDPars$b5.width
            .BDPars$height <- 2.7 * 2
        }
        else if (all(mfrow == c(3, 1))) {
            .BDPars$width <- .BDPars$b5.width
            .BDPars$height <- 2.7 * 2
        }
    }
    else if (.BDPars$paper == "a4") {
        if (all(mfrow == c(1, 1)) & columns == 1 & .BDPars$paper == 
            "a4") {
            .BDPars$width <- 6
            .BDPars$height <- 2.2
        }
        else {
            if (all(mfrow == c(2, 1)) & columns == 1) {
                .BDPars$width <- 6
                .BDPars$height <- 3.5
            }
            if (all(mfrow == c(3, 1)) & columns == 1) {
                .BDPars$width <- 6
                .BDPars$height <- 4.5
            }
            if (all(mfrow == c(4, 1)) & columns == 1) {
                .BDPars$width <- 6
                .BDPars$height <- 5.5
            }
            if (all(mfrow == c(1, 2)) & columns == 1) {
                .BDPars$width <- 6
                .BDPars$height <- 2.5
            }
        }
    }
    .BDPars$mfrow <- mfrow
    .BDPars
  }
}
% Add one or more standard keywords, see file 'KEYWORDS' in the
% R documentation directory.
\keyword{ ~kwd1 }
\keyword{ ~kwd2 }% __ONLY ONE__ keyword per line