0

我在将这些数据作为 holt-winter 模型的时间序列时遇到了一些问题。我不知道下一步该做什么。

library(reshape)
library(tidyr)

tempdata = as.matrix(read.table("https://d37djvu3ytnwxt.cloudfront.net/assets/courseware/v1/592f3be3e90d2bdfe6a69f62374a1250/asset-v1:GTx+ISYE6501x+2T2017+type@asset+block/temps.txt", header = TRUE, row.names = 1))

#melt data for time series

tempdata.ts <- melt(tempdata, id=1:1)

#concatenate Date and Year

tempdata.ts <- tempdata.ts %>% unite(col = "Date", c(X1, X2)) 
4

1 回答 1

0

我想你想HoltWintersstats. 此功能需要ts对象。

library(dplyr)
library(tidyr)
library(lubridate)

首先,重塑数据:

file <- "https://d37djvu3ytnwxt.cloudfront.net/assets/courseware/v1/592f3be3e90d2bdfe6a69f62374a1250/asset-v1:GTx+ISYE6501x+2T2017+type@asset+block/temps.txt"

read.table(file, header = TRUE, row.names = 1) %>% 
 as.data.frame() %>%
 mutate(DayMonth = rownames(.)) %>%
 gather(Date, Value, -DayMonth) %>%
 unite("Date", c(DayMonth, Date) ) %>% 
 mutate(Date = dmy(Date) ) -> tempData

创建时间序列对象:

tsData <- as.ts(
 tempData$Value, start = min(tempData$Date), end = max(tempData$Date),
 frequency = 365)
于 2017-06-07T02:30:22.977 回答