閏年のペンタッド日付に基づくサブセットデータ

Question

ペンタッド日付で次のデータをサブセット化しようとしています。 Pentadは5日平均で重複しないことを意味する。うるう年の場合は、ペンタッド12は、2月29日（6平均日数の代わりに5）を備えて：

Link to Data

Link to pentad dates

ここに私のコードです：

library(stringr) 
dat  <- read.csv("tc_filt_1981-2007.csv",header = T,sep = ",") 

dat$Date = paste(dat$Year, str_pad(dat$Month,2,'left','0'), str_pad(dat$Day,2,'left','0'), sep='-') 
dat$yday = as.POSIXlt(dat$Date)$yday + 1 
dat$pentad = ceiling(dat$yday/5) 
df<-split(dat, dat$pentad) 

問題：

dat $ y行は365日間のみ有効です。ある年には73ペンタッドしかなければなりません。上記の私のコードは、dat $ pentadをチェックすると74ペンタッドを生成します。 dfは、各ペンタッドのデータフレームを含む。

は私がやったチェックのために、次の

test<-dat[which(dat$pentad == 74),] 

出力：

SN  CY Year Month Day Hour Lat Lon Cat Date yday pentad 
200034 34 2000 12 31 0 12.7 128.2 TS 2000-12-31 366  74 
200034 34 2000 12 31 6 13.3 128.8 TS 2000-12-31 366  74 
200034 34 2000 12 31 12 13.9 129.7 TS 2000-12-31 366  74 
200034 34 2000 12 31 18 14.4 130.6 TS 2000-12-31 366  74 

質問：私は私のコードでは、うるう年を考慮するにはどうすればよい

1. ？

どのようにすればいいですか？

多くのおかげで、

Answer 1

マイナー調整は：

library(lubridate) 
dat$pentad = ceiling((dat$yday - leap_year(dat$Year)*(dat$yday > 59))/5)