任何人都可以告诉我如何使用二次插值来估算丢失的数据。我知道zoo
包提供了线性和三次插值。
感谢。
答案 0 :(得分:3)
大量的赞成票鼓励我将我的评论转化为答案。
由于以下原因,二次插值很少见:两个数据点定义一条线,四个定义一条三次曲线。因此,您可以使用插值间隙两侧的一个或两个数据点进行插值。对于立方体情况,您还可以使用四个自由度来匹配间隙两侧的函数值和斜率,从而导致三次样条插值。
但是,对于二次曲线,您需要有三个自由度。所以你需要三个点来定义插值形状,你不能在间隙的两边均匀分布。
可能的“解决方案”:
我不建议这些,但我想不出更好的答案你的问题。对于每个计算,您可以验证给定的实现是否与设计理念相匹配,但由于我认为所有设计思想都存在缺陷,这种正确性仍然无法确保插值实际上有意义。
答案 1 :(得分:0)
对于多项式插值和可视化得到的拟合,我想你可能会尝试以下方面:
x <- runif(100,-2,2)
y <- x**2-rnorm(100) # an approximately quadratic relation between x and y.
plot(x,y)
quadratic.model <- lm(y ~ x + I(x**2))
int <- function(x) predict(quadratic.model,list(x=x))
plot(int,xlim=c(-2,2),col="navy",add=T)
segments(x,y,x,int(x),col="red")
......“正确性”当然只能测量插补和观察之间的距离。