Function

コメント・参照等
  • tidy dataから日付範囲で抽出する関数

FUN = f_extract_tidydata_by_date.r
function (tidydata, date_tail) 
{
    library(lubridate)
    lastdate <- as.Date(max(tidydata$Date))
    firstdate <- lastdate %m-% months(min(date_tail, length(unique(tidydata$Date))))
    obj0 <- tidydata[firstdate <= tidydata$Date & tidydata$Date <= lastdate, ]
    return(obj0)
}