Estimation in a changepoint regression with R

Dear All,

I'm trying to do the estimation in a changepoint regression problem via R, but never found any suitable function which might help me to do this. 

Could someone give me a hand?on this matter? Apologize if i am in?the wrong channel of discussion.

Thank you.