# NOT RUN {
p <- system.file('exdata', 'obory.dat', package = 'hyperbrick')
im <- buildBrick(p, ref_layer = 35,
spectral_feature = "radiance",
hFOV = 36.8, vFOV = 36.8, height = 45)
plotRGB(im, r = 63, b = 34, g = 11, scale = 90, axes = TRUE)
sw <- slideWindows(im)
lapply(sw, lines, col = "white") -> null_obj
sb <- slideBrick(im, sw, fun = mean)
head(sb)
viewSpectra(sb, ylab = "Radiance")
# }
Run the code above in your browser using DataLab