Добавьте уравнение множественной регрессии в сегментированный график

Question

Я нашел этот пример полезным из RDocumentation, и я хотел бы изучить его дальше. Код ниже был адаптирован из https://www.rdocumentation.org/packages/segmented/versions/0.5-2.1/topics/plot.segmented

GDD<- c(221.2765957446810000,
    309.2198581560280000,
    431.2056737588650000,
    483.6879432624110000,
    553.1914893617020000)

biom<-c(0.0000000001000000,
        0.8510638297872340,
        5.9574468085106400,
        15.3191489361702000,
        22.1276595744681000)
o<- glm(biom~GDD, family = gaussian); o
o.seg<-segmented(o, ~GDD) #single segmented covariate and one breakpoint:'psi' can be omitted
par(mfrow=c(2,1))
plot(o.seg, conf.level=0.95, shade=TRUE)
points(o.seg, link=FALSE, col=2)

Я хотел бы найти уравнение, которое создало черную сегментированную линию и найти точку соединения (красный). Пожалуйста, посмотрите, как я могу это сделать. Буду признателен за любую оказанную помощь.

Answer 1

o.seg рассказывает вам все, что вы хотите знать. "Предполагаемая точка (и) останова:" говорит вам значение x (значение GDD) точки останова (красная точка). это psi1.GDD = 391,3.

o.seg$coefficients говорит вам уравнение линии, которое примерно -2.14 + 0.0097*GDD*(GDD < psi1.GDD) + 0.12*GDD*(GDD >= psi1.GDD),