求大神指导R语言进行数据插值的问题

Ning_1f

刚刚接触R语言用的很不熟练，想对一组值进行插值，出现了下面的情况，不知道该怎么办，求指导！！谢谢！！
> old
        [,1]   [,2]  [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]  -17.4  306.4 858.7 1107  961  810  764  722  823  1081
[2,]  -17.8  103.6 453.7  684  735  834  915  836  820   997
[3,]    3.7   42.8 192.6  269  356  623  836  769  700   858
[4,]   26.2  140.4 223.6  127   88  335  578  536  492   712
[5,]  130.1  365.6 489.3  304  105  202  366  330  343   643
[6,]  235.8  512.9 692.8  536  275  234  305  286  354   685
[7,]  171.2  381.7 588.6  546  344  257  314  372  490   782
[8,]  -28.3   61.7 271.8  365  273  202  309  481  632   838
[9,] -122.6 -151.9  35.3  229  230  182  323  553  681   782
[10,]    5.6 -129.2 -10.1  221  292  274  400  577  603   609
[11,]  207.9   -8.6   7.1  205  331  375  474  529  422   361
> old1<-array(c(old,old),c(8,7,2))  #注意
>
> height<-apply(old1,3,function(old1, newx=36, newy=32)
+    interp.surface.grid(list(x=seq(nrow(old1)),y=seq(ncol(old1)),z=old),
+                        list(x=seq(1,nrow(old1),length=newx),
+                             y=seq(1,ncol(old1),length=newy)))$z)
Error in FUN(array(newX[, i], d.call, dn.call), ...) :
  could not find function "interp.surface.grid"

啦啦啦179

遇到楼主同样的问题了