クラス遷移ラスタ

Question

2つの異なるラスタ間のクラス遷移の数はどのように計算できますか？値5を有するセルが値2 5-> 2（13倍）を用いて細胞に変化した回数 しかし、次の2つの列（ここで、列のデータフレームにtableを使用することができるマトリックス転移

Answer 1

を使用して：たとえば 2つの行列の値です）。

set.seed(2222) 
# prepare some data 
A <- matrix(round(runif(25, 1, 5)), 5) 
B <- matrix(round(runif(25, 1, 5)), 5) 

# construct data.frame 
AB <- data.frame(as.numeric(A), as.numeric(B)) 

# compute number of pairs: 
AB_trans <- table(AB) 
>AB_trans 
    B 
A 1 2 3 4 5 
    1 0 0 1 2 0 
    2 1 1 1 1 1 
    3 1 1 0 1 2 
    4 0 2 2 2 0 
    5 0 2 1 1 2 

この例では、行列Aの値5のセルを、行列Bの値2のセルに2回変更しました。