# NOT RUN {
b <- brick(system.file("external/rlogo.grd", package="raster"))
r <- which.min(b)
i <- which.min(b[[3]])
xy <- xyFromCell(b, i)
plot(b[[3]])
points(xy)
x <- whiches.min(b)
freq(x)
# }
Run the code above in your browser using DataLab