r <- raster(system.file("external/test.grd", package="raster"))
s <- stack(r,r,r)
sel <- subset(s, 2:3)
sel <- subset(s, 2)
sel <- subset(s, 2, drop=FALSE)
# sel <- subset(s, 2:3) is equivalent to
sel <- dropLayer(s, 1)
Run the code above in your browser using DataLab