У меня есть эти данные:Поиск локоть/колено кривой
x <- c(6.626,6.6234,6.6206,6.6008,6.5568,6.4953,6.4441,6.2186,6.0942,5.8833,5.702,5.4361,5.0501,4.744,4.1598,3.9318,3.4479,3.3462,3.108,2.8468,2.3365,2.1574,1.899,1.5644,1.3072,1.1579,0.95783,0.82376,0.67734,0.34578,0.27116,0.058285)
y <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32)
, которые выглядят как:
plot(x,y)
И я хочу, чтобы найти способ, чтобы получить локоть/точка колена около x=6.5
Я думал, что установка loess
кривой, а затем взяв второй производной может работать, но:
plot(x,predict(loess(y ~ x)),type="l")
не выглядит, как он будет делать эту работу.
Любая идея?
Возможные дубликат [R: изменения наклона маркировки в кривой LOESS с использованием ggplot2] (http://stackoverflow.com/questions/8245792/r-marking-slope-changes-in-loess-curve-using-ggplot2) – Uwe