私は自分の目的に完全に機能するコードを持っています(特定のパターンでいくつかのファイルを読み取り、各ファイル内の行列を読み取り、各ファイルペアを使用して何かを計算します...最終的な出力は、ファイルの同じサイズの行列です番号)そしてこのように見えます:
m<- 100
output<- matrix(0, m, m)
lista<- list.files(pattern = "q")
listan<- as.matrix(lista)
n <- nrow(listan)
for (i in 1:n) {
AA <- read.table((listan[i,]), header = FALSE)
A<- as.matrix(AA)
dVarX <- sqrt(mean(A * A))
for (j in i:n) {
BB <- read.table ((listan[j,]), header = FALSE)
B<- as.matrix(BB)
V <- sqrt (dVarX * (sqrt(mean(B * B))))
output[i,j] <- (sqrt(mean(A * B))) / V
}
}
私の問題は、それが多くの時間を要することです(私は約5000の行列を持っています、それは5000x5000のループを意味します)。並列化したいのですが、助けが必要です!あなたの親切な提案を待っています!
前もって感謝します!
Gab