从R函数“smooth.spline”中获取拟合平滑样条的全局最大值＆＃39;

Question

我使用smooth.spline(x,y)平滑了我的数据，现在我想计算平滑曲线的模式或最大值。

x <- vect.1
y <- vect.2
plot(x, y, type = 'l')
smth <- smooth.spline(x, y)
lines(smth, col = 'red', lwd = 2)

我目前的方法只是查找x，它给出了最大y，这不是那么准确。有没有更好的方法来做到这一点？

Answer 1

psmth <- predict(smth, x= seq(1,100, by=0.1) )
mode_psmth <- psmth$y[ which.max( psmth$y ) ]

甚至：

mode_psmth <- max(psmth$y)

如果这不是“足够准确”，那么请解释原因。