如何用ts函数分解每日时间序列？

Question

我的时间序列：

data<-data.frame(buys=rnorm(167,100,20))

d <- seq(as.Date("2018-07-19"), as.Date("2019-01-01"), by = "day")
d

data$d<-(d)

我的功能：

time<-ts(data$buys,start=c(2018,as.numeric(format(d[1],'%j'))),freq=365)

频率为365。但是decompose函数不起作用：

decompose(time)

  

分解（时间）错误：时间序列不超过2个周期

出什么问题了？