r - 查找从给定日期起的工作 X 年

Question

假设我在 1990 年 1 月 10 日买入 EuroSTOXX 5O 欧洲看涨期权，到期日为 9 年。我想知道什么是到期日。任何的想法？

我可以从quantmod包开始：

require(quantmod)
getSymbols("^STOXX50E", from = "1990-01-01")
maturity <- 9
dates <- index(STOXX50E)

问题是我不能使用

dates[1] + maturity*365

或者

dates[1] + maturity*252

找到到期日，因为工作日数因年份而异。

任何的想法？

谢谢。

Answer 1

我真的很喜欢lubridate这个问题的包。

require(quantmod)
require(lubridate)
getSymbols("^STOXX50E", from = "1990-01-01")
maturity <- 9 # years

dates <- as.POSIXct(as.character(index(STOXX50E)), tz = "UTC") # needs to be in POSIXct format to work with lubridate, I believe.

maturity_dates <- dates + years(maturity) 

head(as.data.frame(list(dates = dates, 
                        maturity_dates = maturity_dates)))

  dates          maturity.dates
1 1990-01-01     1999-01-01
2 1990-01-02     1999-01-02
3 1990-01-03     1999-01-03
4 1990-01-04     1999-01-04
5 1990-01-05     1999-01-05
6 1990-01-08     1999-01-08