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

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
}