Нет оборудованную модель линии для временных сегментов серии

Question

Я использую следующую временную ряд:

Lines <- "D1,Value 
1,20/11/2014 16:00,0.01 
2,20/11/2014 17:00,0.01 
3,20/11/2014 19:00,0.01 
4,20/11/2014 22:00,0.20 
5,20/11/2014 23:00,0.03" 

library (zoo) 
library (strucchange) 

z <- read.zoo(text = Lines, tz = "", format = "%d/%m/%Y %H:%M", sep = ",") 

bp <- breakpoints(z ~ 1, h = 2) 

plot(z) 
abline(v = time(z)[bp$breakpoints]) 

Я хотел бы добавить к графе для каждого сегмента подобранной модели и дополнительно создать dataframe, который имеет конст и наклон приспособленной модели. Для подогнанной модели на сегмент графа Я пытался использовать следующее:

lines(z, fitted(bp, breaks = 1), col = 2, lwd = 2) 

но нет никакой линии. Для dataframe я пытался использовать:

coef(bp, breaks = 1) 

Однако мне нужно наклон, а также.

Answer 1

кажется, что контрольные точки возвращает "ts" объект, даже если входной является зоопарк так попробовать это:

fit <- zoo(fitted(bp), time(z)) 
lines(fit, col = "blue", lty = 2, lwd = 2)