我现在有一个720*1440的矩阵（里面包含一些NA)，我想把这个矩阵插值成2880*5760的矩阵。矩阵的名字是old，新生成的矩阵名为newmat。用的代码如下：newmat<-apply(old,2,function(old, newx=5760, newy=2880)    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)
之后报错：Error in seq.default(1, nrow(old), length = newx) :
  'to' must be of length 1
求各位大神指导应该怎么修改，本人刚刚学习R语言，插值代码是从同学那拷来的，如果不对请大神们告知应该怎么插值才是正确的，谢谢谢谢！