插值在R A曲線

Question

我有一個名爲dataframe（二維表）的數據集，並作爲最佳擬合曲線：

scatter.smooth(dataframe, xlab="", ylab="") 

我需要什麼樣的代碼實現和評估（得到的數值）一在單個x值處的最佳擬合曲線上的Y值？

Answer 1

嘗試

set.seed(1) 
dataframe <- data.frame(x=runif(100), y=runif(100)) 
scatter.smooth(dataframe, xlab="", ylab="") 
res <- with(dataframe, loess.smooth(x, y, evaluation = 200)) 
lengths(res) 
# x y 
# 200 200 

x <- 0.5 
y <- res$y[res$x>=x][1] 
points(x, y, col="blue", pch = 19, cex=2)