Интерполяция на кривой в R

Question

У меня есть набор данных под названием dataframe (2-мерная таблица) и наиболее подходящая кривая как:

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

Какой код мне нужно будет реализовать и оценить (получить числовое значение) значение Y на этой кривой наилучшего соответствия для одного значения x?

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)