link[base]{Trig}
See Math-methods
for other trigonometric and mathematical functions that can be used with Raster* objects.atan2(y, x)
Math-methods
r1 <- r2 <- raster(nrow=10, ncol=10)
r1[] <- (runif(ncell(r1))-0.5) * 10
r2[] <- (runif(ncell(r1))-0.5) * 10
atan2(r1, r2)
Run the code above in your browser using DataLab