r - 如何将 akima 包双线性函数用于插值的 1 行矩阵？

Question

我正在使用 akima::bilinear 函数，它通常工作得很好。但是，对于某些用例，插值网格只有 1 行但多列。我知道我可以有一个 if 语句并改用 approx() 函数，但是没有它，代码会更干净，我不明白为什么这不起作用。对于失败的可重现示例：

x <- c(-1, -0.5, 0, 0.8, 1.5, 2.4, 4.3)
y <- 0
z <- matrix(c(1,2,3,4,5,6,7), nrow = 1)

akima::bilinear(x, 
                y, 
                z,
                x0 = c(1,2),
                y0 = c(1,2))

我得到的错误是：

Browse[2]> akima::bilinear(x,
                  y,
                  z,
                  x0 = c(1,2),
                  y0 = c(1,2))
Error in akima::bilinear(x, y, z, x0 = c(1, 2), y0 = c(1, 2)) :
  dim(z)[1] and length of x differs!