# NOT RUN {
p <- system.file('exdata', 'soybean.tif', package = 'hyperbrick')
im <- brick(p)
print(im)
# view band-3
plot(im[[3]], col = gray.colors(20), asp = 0)
# rotate band-3 at 3.5 degrees counter-clockwise
b3_rot <- affineBrick(im[[3]], angle = 3.5)
plot(b3_rot, add = TRUE, legend = FALSE,
col = adjustcolor(terrain.colors(20), 0.5))
# }
Run the code above in your browser using DataLab