Düzgün kullandığım bazı verilerim var loess
. Düzeltilmiş çizginin bükülme noktalarını bulmak istiyorum. Mümkün mü? Eminim birisi bunu çözmek için süslü bir yöntem yapmış ... Yani ... sonuçta, R!
Kullandığım yumuşatma işlevini değiştirme konusunda iyiyim. Sadece kullandım loess
çünkü geçmişte kullandığım şey buydu. Ancak herhangi bir yumuşatma işlevi iyidir. Bükülme noktalarının kullandığım yumuşatma fonksiyonuna bağlı olacağının farkındayım. Bununla iyiyim. Sadece çekim noktalarının tükürülmesine yardımcı olabilecek herhangi bir düzeltme işlevine sahip olarak başlamak istiyorum.
İşte kullandığım kod:
x = seq(1,15)
y = c(4,5,6,5,5,6,7,8,7,7,6,6,7,8,9)
plot(x,y,type="l",ylim=c(3,10))
lo <- loess(y~x)
xl <- seq(min(x),max(x), (max(x) - min(x))/1000)
out = predict(lo,xl)
lines(xl, out, col='red', lwd=2)