R-如何以編程方式在分段函數中獲取斷點？

Question

使用mtcars數據集，我試圖確定mpg的折線回歸擬合與hp和wt以及斷點的關系。 這是代碼：

mpg = mtcars$mpg
wt = mtcars$wt
hp = mtcars$hp

reg = lm (mpg ~ hp +wt)

hp_thresh = 150
wt_thresh = 3

library(segmented)
seg.o = segmented (reg,seg.Z=~hp+wt, psi=list (hp=hp_thresh, wt=wt_thresh))
summary (seg.o)

如何以編程方式獲取斷點？

Answer 1

想通了，以下是竅門：

summary.segmented(seg.o)$psi [1,2]
summary.segmented(seg.o)$psi [2,2]