我导入数据后，始终报错说date这个对象找不到，求问大神我该怎么写啊
> library(readxl)
> hour <- read_excel("OneDrive/event study/data/hour.xlsx")
> View(hour)                                                                  
> bns <- BNSjumpTest(hour[, list(Date, close)], IVestimator= "rMinRVar", IQestimator = "rMedRQuar", type= "linear", makeReturns = TRUE)
Error in `[.tbl_df`(hour, , list(Date, close)) : 找不到对象'Date'
>