https://github.com/cran/lattice
Tip revision: 9816ad30e89ad1e2456fdffdce7a6056aceeded3 authored by Deepayan Sarkar on 05 October 2005, 00:00:00 UTC
version 0.12-10
version 0.12-10
Tip revision: 9816ad3
plot.shingle.R
### Copyright (C) 2001-2005 Deepayan Sarkar <Deepayan.Sarkar@R-project.org>
###
### This file is part of the lattice library for R.
### It is made available under the terms of the GNU General Public
### License, version 2, or at your option, any later version,
### incorporated herein by reference.
###
### This program is distributed in the hope that it will be
### useful, but WITHOUT ANY WARRANTY; without even the implied
### warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
### PURPOSE. See the GNU General Public License for more
### details.
###
### You should have received a copy of the GNU General Public
### License along with this program; if not, write to the Free
### Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
### MA 02111-1307, USA
## ## FIXME: not quite what it should be
## plot.shingle.old <-
## function(x, aspect = "fill", ...)
## {
## foo <- list(call = match.call(),
## aspect.fill = aspect == "fill",
## aspect.ratio = if (is.numeric(aspect)) aspect else 1,
## as.table = FALSE,
## condlevels = "1",
## key = NULL,
## layout=c(1,1,1),
## page = NULL,
## panel =
## function(x,
## col = bar.fill$col,
## lty = bar.fill$lty,
## lwd = bar.fill$lwd,
## alpha = bar.fill$alpha,
## border = bar.fill$border,
## ...) {
## bar.fill <- trellis.par.get("bar.fill")
## ## x is the list of intervals
## num.l.y <- length(x)
## if (num.l.y>0)
## for(i in 1:num.l.y)
## grid.rect(x = x[[i]] %*% c(.5,.5),
## y = i,
## width = diff(x[[i]]),
## height = .5,
## default.units = "native",
## gp =
## gpar(fill = col,
## alpha = alpha,
## col = border,
## lty = lty,
## lwd = lwd))
## },
## panel.args = list(list()),
## panel.args.common = list(x=levels(x), ...),
## par.strip.text = trellis.par.get("add.text"),
## skip = FALSE,
## strip = FALSE,
## main = NULL,
## sub = NULL,
## xlab = c(list(label = "Range"), trellis.par.get("par.xlab.text")),
## ylab = c(list(label = "Panel"), trellis.par.get("par.ylab.text")),
## x.scales = 1,
## y.scales = 1,
## x.between = 0,
## y.between = 0,
## x.alternating = 1,
## y.alternating = 1)
## num.l.y <- nlevels(x)
## foo$x.limits <- extend.limits(range(x, levels(x)))
## foo$y.limits <- extend.limits(c(1,num.l.y),
## length = .5 + num.l.y)
## foo$x.scales <- list(relation = "same",
## draw = TRUE,
## alternating = 1,
## at = FALSE,
## labels = FALSE,
## tck = c(1, 1),
## font = 1,
## col = FALSE,
## log = FALSE,
## cex = c(1, 1),
## rot = c(FALSE, FALSE),
## tick.number = 5)
## foo$y.scales <- list(relation = "same",
## draw = TRUE,
## alternating = 1,
## at = 1:num.l.y,
## labels = FALSE,
## tck = c(1, 1),
## font = 1,
## col = FALSE,
## log = FALSE,
## cex = c(1, 1),
## rot = c(FALSE, FALSE),
## tick.number = num.l.y)
## class(foo) <- "trellis"
## foo
## }