通常のクリギングの問題


8

私は通常のクリギングに関連するこのウィキの記事をフォローしていました

ここに画像の説明を入力してください

これで、4つの変数の共分散行列は次のようになります。

1   0.740818220681718   0.548811636094027   0.406569659740599
0.740818220681718   1   0.740818220681718   0.548811636094027
0.548811636094027   0.740818220681718   1   0.740818220681718
0.406569659740599   0.548811636094027   0.740818220681718   1

まあ、semvariogramとvariogramの関係は

γh/C0=1Ch/C0

そこで、も計算しました。次のように重みを計算しようとするとγh

A = 1.0000    0.7408    0.5488    1.0000
    0.7408    1.0000    0.7408    1.0000
    0.5488    0.7408    1.0000    1.0000
    1.0000    1.0000    1.0000         0 

B =  0.4066
    0.5488
    0.7408
    1.0000

私は4番目の変数を欠落していると見なしています

 [W;mu] = inv(A)*B =  0.1148
                      0.0297
                      0.8555
                     -0.1997

上記は共分散を使用したものです。今私が持っていたセミバリアンスを使用して

A = 0         0.2592    0.4512    1.0000
    0.2592         0    0.2592    1.0000
    0.4512    0.2592         0    1.0000
    1.0000    1.0000    1.0000         0

B = 0.5934
    0.4512
    0.2592
    1.0000


inv(A)*B =  0.1148
            0.0297
            0.8555
            0.1997

ご覧のとおり、最後の項は等しくありません。導出によると、それらは等しいと見なされるか、等しいと言われます。説明はありますか?


誰でも。これは私を殺しています。何が悪いのですか?
user34790 2013

解決策ではありませんが(これをコメントセクションに読みやすい形式で投稿する方法がわかりませんでした)、2つの異なるケースでAの逆の構造に気付いたことがありますか?> A = matrix(c(1.0000,0.7408,0.5488,1.0000、+ 0.7408,1.0000,0.7408,1.0000、+ 0.5488,0.7408,1.0000,1.0000、+ 1.0000,1.0000,1.0000,0)、nrow = 4)>>解く(A)[、1] [、2] [、3] [、4] [1、] 1.9619812 -1.7076503 -0.2543309 0.4426230 [2、] -1.7076503 3.4153005 -1.7076503 0.1147541 [3、] -0.2543309 -1.7076503 1.9619812 0.4426230 [ 4、] 0.4426230 0.1147541 0.4426230 -0.7705443>>> A = matrix(c(0,0.2592,0.4512,1.0000、+ 0.2592,0,0.2592

2
μ

回答:


2

γバツバツ0

μwγ

[Γ110][wμ]=[γ1]
Γ×Γ=[γバツバツj]jγγ=[γバツバツ]バツ1

(表記の変更まで)N. Cressie pによる空間データの統計を参照してください。改訂版では121。

## using the covariance 
Acov <-  matrix(c(1.0000, 0.7408, 0.5488, 1.0000,
                  0.7408, 1.0000, 0.7408, 1.0000,
                  0.5488, 0.7408, 1.0000, 1.0000,
                  1.0000, 1.0000, 1.0000, 0.0000),
                nrow=4) 
Bcov <- c(0.4066, 0.5488, 0.7408, 1.0000)
## using the variogram 
Avario <- matrix(-1, nrow = 4, ncol = 4)
Avario[1:3, 1:3] <- 1 - Acov[1:3, 1:3]
Avario[4, 4] <- 0
Bvario <- 1 - Bcov
Bvario[4] <- -1
## compare
cbind(cov = solve(Acov, Bcov), vario = solve(Avario, Bvario))
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.