答案 0 :(得分:1)
这是包的github网站上的一个错误now reported。
这是一个简单示例的解决方法。
t <- seq(0,5,by=1/20)
x <- exp(sin(2*pi*t) + cos(2*pi*t*4) + rnorm(length(t),0,.1))
fc <- dshw(x,20,5)
tspx <- tsp(fc$x)
tspm <- tsp(fc$mean)
tsp(fc$mean)[1:2] <- tspm[1:2] - tspm[1] + tspx[2]+1/tspx[3]
plot(fc)