Я пытаюсь использовать пакет eventstudies
, но я получаю странное сообщение об ошибке при запуске функции, несмотря на следование инструкциям здесь .
Мой код такой как:
> datesevents <-data.frame("name"=c("Aaa negative","Aaa stable","Aaa negative ", "Aa1 stable", "Aa1 stable"), "Date"=c("2012-02-13","2014-0-28","2015-10-23", "2016-06-24","2018-05-25"))
> datesevents$name<-as.character(datesevents$name)
> datesevents$Date<-as.character(datesevents$Date)
> fiveCDS <- read.csv(file.choose())
> colnames(fiveCDS)<-c("Date", "Austria")
> dataCDS <- c(NA,diff(log(as.numeric(fiveCDS$Austria)), lag=1))
> fiveCDS$CDS = dataCDS
> datazoo <- read.zoo(fiveCDS)
> eventstudy(firm.returns = datazoo, event.list = datesevents, event.window = 5,type = "constantMeanReturn", to.remap = TRUE, remap = "cumsum", inference = TRUE, inference.strategy = "bootstrap", model.args = NULL)
И я получаю следующее сообщение
Error in phys2eventtime(z = returns$firm.returns, events = event.list[i, :
events$when should be one of 'Date' or 'date-time' classes.
Итак, из моего понимания это означает, что 2 столбца с датами в моем data.frame()
не считаются классом дат?
В любом случае, как я могу это исправить?
Спасибо!