平滑数据并在R中找到最大值

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) 

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