f <- system.file("external/test.grd", package="raster")
r <- raster(f)
s <- stack(r, r-500, r+500)
bwplot(s)
## Not run:
#
# stackSIS <- stack(listFich)
# stackSIS <- stackSIS*24 ##from irradiance (W/m2) to irradiation Wh/m2
# setwd(old)
#
# idx <- seq(as.Date('2008-01-15'), as.Date('2008-12-15'), 'month')
#
# SISmm <- setZ(stackSIS, idx)
# names(SISmm) <- month.abb
#
# bwplot(SISmm)
# ##FUN applies to z if not NULL
# bwplot(SISmm, FUN=as.yearqtr)
# ## End(Not run)
## Not run:
# ##http://neo.sci.gsfc.nasa.gov/Search.html?group=64
# pop <- raster('875430rgb-167772161.0.FLOAT.TIFF')
# pop[pop==99999] <- NA
# levelplot(pop, zscaleLog=10, par.settings=BTCTheme,
# panel=panel.levelplot.raster, interpolate=TRUE)
#
# ##http://neo.sci.gsfc.nasa.gov/Search.html?group=20
# landClass <- raster('241243rgb-167772161.0.TIFF')
# landClass[landClass==254] <- NA
#
#
# s <- stack(pop, landClass)
# names(s) <- c('pop', 'landClass')
#
# bwplot(asinh(pop) ~ landClass|cut(y, 3), data=s,
# layout=c(3, 1), violin=FALSE)
#
# bwplot(asinh(pop) ~ cut(y, 5)|landClass, data=s,
# scales=list(x=list(rot=45)), layout=c(4, 5),
# strip=strip.custom(strip.levels=TRUE))
# ## End(Not run)
Run the code above in your browser using DataLab