Can anyone please tell me how to get the r-squared output from a piecewise
(segmented) regression using the strucchange package?  Here is the R code I
have tried thus far.

library(lmtest)
library(strucchange)

data <- ts(c(rnorm(30), runif(30)), frequency = 12, start = c(2005, 01))

bpts <- breakpoints(data ~ 1)

print(bpts)

summary(bpts)

coeftest(bpts)

	[[alternative HTML version deleted]]

