The R Project SVN – R-packages – Diff – /trunk/lattice/R/levelplot.R



    x <- as.numeric(x[subscripts])
    y <- as.numeric(y[subscripts])
    minXwid <- min(diff(sort(unique(x))))
    minYwid <- min(diff(sort(unique(y))))
 
    fullZrange <- range(as.numeric(z), finite = TRUE) # for shrinking
    z <- as.numeric(z[subscripts])
    zcol <- as.numeric(zcol[subscripts])
 
    ## Do we need a zlim-like argument ?
 

            if ("y" %in% names(shrink)) shrinky <- rep(shrink$y, length = 2)
        }
        else warning("Invalid shrink, ignored")
    }
 
    scaleWidth <- function(z, min = .8, max = .8, zl = range(z, finite = TRUE)) {
        if (diff(zl) == 0) rep(.5 * (min + max), length(z))
        else min + (max - min) * (z - zl[1]) / diff(zl)
    }
 
    

    }
 
    if (missing(xlab)) xlab <- form$right.x.name
    if (missing(ylab)) ylab <- form$right.y.name
 
    zrng <- extend.limits(range(z, finite = TRUE))
    if (missing(at))
        at <-
            if (pretty) pretty(zrng, cuts)
            else seq(zrng[1], zrng[2], length = cuts+2)
    

The R Project SVN R-packages

(root)/trunk/lattice/R/levelplot.R – Rev 1357 → 1616

Rev 1357		Rev 1616
Line 162...		Line 162...
162	`x <- as.numeric(x[subscripts])`	162	`x <- as.numeric(x[subscripts])`
163	`y <- as.numeric(y[subscripts])`	163	`y <- as.numeric(y[subscripts])`
164	`minXwid <- min(diff(sort(unique(x))))`	164	`minXwid <- min(diff(sort(unique(x))))`
165	`minYwid <- min(diff(sort(unique(y))))`	165	`minYwid <- min(diff(sort(unique(y))))`
166		166
167	`fullZrange <- range(as.numeric(z), na.rm = TRUE) # for shrinking`	167	`fullZrange <- range(as.numeric(z), finite = TRUE) # for shrinking`
168	`z <- as.numeric(z[subscripts])`	168	`z <- as.numeric(z[subscripts])`
169	`zcol <- as.numeric(zcol[subscripts])`	169	`zcol <- as.numeric(zcol[subscripts])`
170		170
171	`## Do we need a zlim-like argument ?`	171	`## Do we need a zlim-like argument ?`
172		172
Line 184...		Line 184...
184	`if ("y" %in% names(shrink)) shrinky <- rep(shrink$y, length = 2)`	184	`if ("y" %in% names(shrink)) shrinky <- rep(shrink$y, length = 2)`
185	`}`	185	`}`
186	`else warning("Invalid shrink, ignored")`	186	`else warning("Invalid shrink, ignored")`
187	`}`	187	`}`
188		188
189	`scaleWidth <- function(z, min = .8, max = .8, zl = range(z, na.rm = TRUE)) {`	189	`scaleWidth <- function(z, min = .8, max = .8, zl = range(z, finite = TRUE)) {`
190	`if (diff(zl) == 0) rep(.5 * (min + max), length(z))`	190	`if (diff(zl) == 0) rep(.5 * (min + max), length(z))`
191	`else min + (max - min) * (z - zl[1]) / diff(zl)`	191	`else min + (max - min) * (z - zl[1]) / diff(zl)`
192	`}`	192	`}`
193		193
194		194
Line 525...		Line 525...
525	`}`	525	`}`
526		526
527	`if (missing(xlab)) xlab <- form$right.x.name`	527	`if (missing(xlab)) xlab <- form$right.x.name`
528	`if (missing(ylab)) ylab <- form$right.y.name`	528	`if (missing(ylab)) ylab <- form$right.y.name`
529		529
530	`zrng <- extend.limits(range(z[!is.na(z)]))`	530	`zrng <- extend.limits(range(z, finite = TRUE))`
531	`if (missing(at))`	531	`if (missing(at))`
532	`at <-`	532	`at <-`
533	`if (pretty) pretty(zrng, cuts)`	533	`if (pretty) pretty(zrng, cuts)`
534	`else seq(zrng[1], zrng[2], length = cuts+2)`	534	`else seq(zrng[1], zrng[2], length = cuts+2)`
535		535