平滑數據並在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) 

如果這不是 「足夠準確」，然後請解釋原因。