前回に引き続き、日付を操作するパッケージRcppBDTをご紹介します。
私がよく使うのはgetNthDayOfWeekで、「今月の第3水曜日は何日」といったことを取得できます。
以下に例を挙げます。
install.packages("RcppBDT") library(RcppBDT) date <- today() getEndOfBizWeek(date)#"2017-06-23" getEndOfMonth(date)#"2017-06-30" getYear(date)#2017 getMonth(date)#6 getDay(date)#19 getDayOfWeek(date)#1 getDayOfYear(date)#170 #先物・オプション取引の契約終了日=第3水曜日 getIMMDate(6,2017)#"2017-06-21" #2017年6月の第3水曜 getNthDayOfWeek(3, Wed, 6, 2017)#"2017-06-21" #2017年6月の最後の月曜日 getLastDayOfWeekInMonth(Mon, 6, 2017) #"2017-06-26" #今日の次に来る水曜日は getFirstDayOfWeekAfter(Wed, date)#"2017-06-21"
参考:Package ‘RcppBDT’
https://cran.rstudio.com/web/packages/RcppBDT/RcppBDT.pdf