栅格的相关性和p值

Question

我有4个栅格，并使用此代码计算了相关矩阵； 但我需要知道p值，但我还无法做到。你能帮我吗？

a<-stack(FS2,FP2,W2,P)

jnk=layerStats(a, 'pearson', na.rm=T)
corr_matrix=jnk$'pearson correlation coefficient'

Answer 1

您可以在光栅包中使用corLocal函数：

library(raster)
b <- stack(system.file("external/rlogo.grd", package="raster"))
b <- aggregate(b, 2, mean)

#flip one layer so values differ:
set.seed(0)
b[[2]] <- flip(b[[2]], 'y') + runif(ncell(b))
b[[1]] <- b[[1]] + runif(ncell(b))
plot(b)

#run correlation
x <- corLocal(b[[1]], b[[2]], test=TRUE )

#view pearson correlation and p-value
plot(x)