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

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)
}