Rで月末日を取得する関数を作成した。 endOfMonth <- function(date_) { #該当月の月初日 startOfMonth <- as.Date(format(date_,"%Y%m01"),"%Y%m%d") #次月の月初日 startOfNextMonth <- as.Date(format(startOfMonth+31,"%Y%m01"),"%Y%m%d") #一日前が該当…