將樣條插值轉換爲線性插值？

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()和approxFun()見?approx。這些是spline()和splineFun()的線性插值對應物。

根據您要執行的線性插值的細節（見?approx的細節和事情來調整），也可能是那樣簡單：

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