如何将这些数据转换为R中的时间序列？

我在将这些数据作为霍尔特-温特模型的时间序列时遇到了一些问题。我不知道下一步该怎么办

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)) 

库（重塑）
图书馆（tidyr）
tempdata=as.matrix（读表https://d37djvu3ytnwxt.cloudfront.net/assets/courseware/v1/592f3be3e90d2bdfe6a69f62374a1250/asset-v1:GTx+ISYE6501x+2T2017+type@asset+block/temps.txt“，header=TRUE，row.names=1））
#时间序列的熔化数据
tempdata.ts我想您想从
stats
中安装
holtwiners
。此函数需要
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

文件%
as.data.frame（）%>%
变异（DayMonth=行名（%）%%>%
聚集（日期，值，-DayMonth）%>%
联合（“日期”，c（日、月、日））%>%
突变（日期=dmy（日期））->tempData

创建时间序列对象：

tsData <- as.ts(
 tempData$Value, start = min(tempData$Date), end = max(tempData$Date),
 frequency = 365)

tsData