perform a segmented regression in r

# Install and load the "segmented" package
install.packages("segmented")
library(segmented)

# Create a linear regression model
model <- lm(y ~ x, data=df)

# Perform segmented regression with one breakpoint at 'bp'
seg_model <- segmented(model, seg.Z=~x, psi=list(bp=3))

# Print segmented regression summary
summary(seg_model)
329 chars
13 lines