res.sum $ coefficients [2，1]中的错误：下标超出范围

Question

嗨，我是R的新手，我正在尝试进行时间序列分析，其中有2个属性，“日期和调用”首次处理了一个很小的数据集，包含78个条目。但是标题中提到的问题实际上让我困扰了过去两天。有人可以解释为什么会发生此错误，我必须进行哪些必要的更改

我已经将数据转换为时间序列对象，但是adf抛出了错误，指出下界错误

library(lubridate)
library(tseries)
library(ggplot2)
library(tseries)
library(forecast)
#
data=read.csv(file.choose())

head(data)
class(data)

#Convert Date from factor to date range
data$Date2 = as.Date(data$Date2, origin = "1899-12-30")

data$Date <- format(as.Date(data$Date), "%d/%m/%Y")
head(data$Date)
#Groupby
library(dplyr)
Dates_class = data %>% 
group_by(Date2) %>% 
summarise(Dates_class= sum(Calls_Handled))
View(Dates_class)
head(Dates_class)
plot(Dates_class$Date2,Dates_class$Dates_class)
lines(Dates_class$Date2,Dates_class$Dates_class)
class(Dates_class)
Dates_class1 <- 
ts(Dates_class$Dates_class,start=c(2019,3),end=c(2019,5),frequency=1)
class(Dates_class1)
adf.test(Dates_class1, alternative = c("stationary", "explosive"),
     k = trunc((length(x)-1)^(1/3)))