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]