将样条插值转换为线性插值？

Question

下面的该函数在样条插值方面做得很好，但是我想知道如何修改它以进行线性插值！

  ## Function to interpolate using spline
    imageSpline = function(x, y, xout, method = "natural", ...){
    x.max = max(xout)
    x.spline = spline(x = x, y = y, xout = xout, method = method, ...)
    x.spline
    }

Answer 1

见?approx为approx()和approxFun() 这些是spline()和splineFun()的线性插值副本。

根据要执行的线性插值的细节（有关详细信息和要调整的内容，请参阅?approx ），它可能很简单：

imageApprox <- function(x, y, xout, ...) {
    x.linear <- approx(x = x, y = y, xout = xout, ...)
    x.linear
}