## from ?segmented
if (FALSE) {
set.seed(12)
xx<-1:100
zz<-runif(100)
yy<-2+1.5*pmax(xx-35,0)-1.5*pmax(xx-70,0)+15*pmax(zz-.5,0)+rnorm(100,0,2)
dati<-data.frame(x=xx,y=yy,z=zz)
out.lm<-lm(y~x,data=dati)
os<-selgmented(out.lm) ## selects number of breakpoints via the Score test
os <-selgmented(out.lm, Kmax=3, type="bic") #BIC-based selection
}
Run the code above in your browser using DataLab