Если у вас возникли проблемы с получением имен файлов, вы можете сделать это:
my_asc_files = dir("../somepath", pattern="*.asc", recursive=T, full.names=T)
files_I_want = my_asc_files[c(1,12,32,33)]
Тогда вы можете загрузить свои файлы вот так
library(raster)
my_rasters = lapply(files_I_want, raster)
Тогда вы можете сделать это:
pairs(my_rasters)
и это:
for(i in 1:length(my_rasters))
for(j in i:length(my_rasters))
if(i != j) {
df = na.omit(data.frame(values(my_rasters[[i]]), values(my_rasters[[j]])))
cor(df[,1], df[,2])
}
Хотя вы столкнетесь с проблемами, если растры настолько велики, что вы не сможете хранить два в памяти одновременно. Без лучшего вопроса будет трудно дать вам лучший совет.