이기 때문에 이것은 내 데이터입니다 data 데이터는 26/07/2016부터 시작하여 10/03/2017로 끝납니다 따라서 2 질문 : 이 맞습니까? tbats 사용 하시겠습니까? 주간 계절성을 위해? 나는 예측 된 데이터를 초기 데이터처럼 보이기를 원하지만 보여지는 것처럼 내 경우가 아니라 어떻게 할 수 있습니까? 이 내가있어 무엇이며, 여기에 너무 tbats를 사용하여 주간 데이터 예측
내가이
data.raw=read.csv(file=file.choose(),header=TRUE,sep=";",row.names=NULL)%>%
mutate(date.re = as.POSIXct(date, format = "%d/%m/%Y"))
complete.dates <- range(data.raw$date.re)
dates.seq <- seq(complete.dates[1], complete.dates[2], by = "week")
series <- data.frame(sale.week = week(dates.seq),sale.month = month(dates.seq), sale.year = year(dates.seq))
data.post <- data.raw %>%
mutate(sale.week = week(date.re),sale.month = month(date.re), sale.year = year(date.re)) %>%
select(Quantite, sale.week,sale.month, sale.year) %>%
group_by(sale.week,sale.month, sale.year) %>%
summarize_all(funs(sum(.))) %>%
right_join(series) %>%
replace_na(list(Quantite = 0))
data2=data.post[,4]
sensor <- ts(data2,frequency=52)
fit <- tbats(sensor)
fc <- forecast(fit)
plot(fc)
당신은
많은 분들이 도와주세요. – user3010971