r - 使用端点函数来获取起点？

Question

我有一个名为 Daily_Quotes 的 xts 对象包含股票报价。我正在使用 endpoints获取我使用 getSymbols 检索到的每月股票报价(来自 quantmod 包)。我注意到 endpoints函数创建包含特定月份最后一个交易日的行的索引，并将其分配给指定日期范围的新对象。有没有办法获得本月的第一个交易日？

# My code    
Monthly_Quotes <- Daily_Quotes[endpoints(Daily_Quotes,'months')]

我尝试做的是:

# This gave me the next day or 1st day of the next month
# or next row for the object.
endpoints(Daily_Quotes,'months') + 1

# So I applied this and it gave me 
# Error in `[.xts`(Daily_Quotes, endpoints(Daily_Quotes, "months") + 1) :
# subscript out of bounds
Monthly_Quotes <- Daily_Quotes[endpoints(Daily_Quotes,'months') + 1]

我如何尝试解决这个问题？

Answer 1

您可以创建一个 startpoints像这样的功能

startpoints <- function (x, on = "months", k = 1) {
  head(endpoints(x, on, k) + 1, -1)
}