Displaying 1 result from an estimated 1 matches for "rangehere".
2011 Feb 20
2
Same color key for multiple lattice contour plots
...t = 50)
y.marginal <- seq(min(y), max(y), length.out = 50)
xy.marginal <- list(x = x.marginal, y = y.marginal)
zz <- loess((z1) ~ x * y)
grid <- expand.grid(xy.marginal)
grid[, "fit"] <- c(predict(zz, grid))
# step 2 calculate the range of groundwater heads for this plot:
rangehere<-seq(floor(min(z1)/bynumb)*bynumb,ceiling(max(z1)/bynumb)*bynumb,by=bynumb)
# rangehere appears to be seq(-5.6, -2.4, by = -.2, length = 17)
# step 3 calculate the range of colors that fit to the range of groundwater
heads
colorrange<-round(seq(((rangehere[1]-deltaseq[1])/bynumb)+1,((max(ra...