Преобразование сплайн-интерполяции в линейную интерполяцию?

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 
}