“变化点检测”-Funktion （CPT） - PELT

问：

我已将断点函数应用于我的数据，但结果似乎不正确，因此我的趋势转折点显示得太晚了。这可能是什么原因？

strom_ts <- ts(strom_rechnungen_agg$Verbrauch_pro_qm, frequency = 12, start = c(2009, 1))
strom_decompose <- decompose(strom_ts)
strom_trend <- strom_decompose$trend
strom_trend <- na.omit(strom_trend)
cpt <- cpt.var(strom_trend, method = "PELT")