Если вы этого не сделаете, то сначала сделайте это с небольшой выборкой. Судя по вашему описанию, это не то, что вам нужно. Вы можете сделать
library(raster)
r <- raster(system.file("external/test.grd", package="raster") )
s <- stack(r, 1/r, sqrt(r))
pairs(s)
Или для более формального анализа
set.seed(321)
x <- sampleRegular(s, 10000)
cor(x, use="complete.obs")
# test.1 test.2 layer
#test.1 1.0000000 -0.8505059 0.9886518
#test.2 -0.8505059 1.0000000 -0.9155957
#layer 0.9886518 -0.9155957 1.0000000
Когда вы задаете вопрос, всегда старайтесь включить минимальный, самодостаточный, воспроизводимый пример, как я сделал выше .