从decompose()函数的源代码可以看出,您的数据的频率必须高于1,并且非缺失数据点的数量应至少是频率值的2倍:
> decompose
function (x, type = c("additive", "multiplicative"), filter = NULL) {
type <- match.arg(type)
l <- length(x)
f <- frequency(x)
if (f <= 1 || length(na.omit(x)) < 2 * f)
stop("time series has no or less than 2 periods")
...
在您的情况下,由于时间序列(构建方式)的频率为 1,因此引发了错误:
A <- c(5,6,7,8,9,8,5,6,10,11)
A1 <- as.ts(A, frequency=12)
> frequency(A1)
# 1
您可以构造一个具有正确频率的时间序列对象调用ts 而不是as.ts:
A1 <- ts(A, frequency=12)
> frequency(A1)
# 12
但是在这种情况下,由于您有 10 个观察值,而所需的数量至少为 24,因此会触发相同的错误。
为了让它发挥作用 - 至少有 24 次观察:
A1 <- ts(runif(24, 1, 100), frequency=12)
decompose(A1)
# works.