2d双線形補間R

Question

補間を行うために必要な多次元データ構造があります。私は本当にRでこれを行う方法の例を得ることは難しいと思っています！私は、アレイ、oldがある場合の例として

：私はの大きさを変更したい。すなわち

new <- interp2d(old, newx=6, newy=5) 

：私がやりたいものを

old <- array(runif(10*12), dim=c(12,10)) 

str(old) 
num [1:12, 1:10] 0.763 0.429 0.792 0.923 0.476 ... 

を配列newを作るです新しい配列がoldデータの6 * 5配列になります。この例では、oldグリッド内の合計を保持することが重要です。上記の行は私がしたいことの例です、私はどのようにして、誰かが望むことを知らなかったのですか??ありがとう！

Answer 1

ここでは始まりますが、私はそれがあなたが望むものをしていると確信していません。実際には、このように粗くしているときに合計を正確に保持できるかどうかわかりません...「補間」よりもむしろ「ビン（bin）」にしないといけないのですか？

library(sos) 
findFn("{bilinear interpolation}") 

set.seed(101) 
old <- array(runif(10*12), dim=c(12,10)) 

library(fields) 

interp2d <- function(old, newx, newy) { 
    interp.surface.grid(list(x=seq(nrow(old)),y=seq(ncol(old)),z=old), 
         list(x=seq(1,nrow(old),length=newx), 
          y=seq(1,ncol(old),length=newy)))$z 
} 

newmat <- interp2d(old, newx=6, newy=5)