次のように、データに 4 次多項式曲線を当てはめました。
y<-c(-13,16,35,40,28,36,43,33,40,33,22,-5,-27,-31,-29,-25,-26,-31,-26,-24,-25,-29,-23,4)
x<-1:24
#4th order polynomial fit
fit<-lm(y~poly(x,4,raw=TRUE))
plot(x,y,ylim=c(min(y)-10,max(y)+10))
lines(x,predict(fit,data.frame(x=x)),col="red")
abline(h=0,lty=2)
私の最終的な目標は、この曲線がゼロ線と交わる 3 つの点を計算することです。
最初に、カーブ フィットの最後を延長して、ゼロ ラインを 3 回超えるようにする必要があります。これを行ったら、この方程式がゼロラインを通過する 3 つの点を計算したいと思います。