怎样用function来检验是否是闰年

夜筱巫

我要写个function来检验末年是否是闰年。开头这样：

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
$ z( p2 B, p  G! c  b! h+ T如果那一年可以整除4（比如2004），2月就有29天
# |. |% N3 |/ l% p1 D1 _0 ~如果那一年不能整除100
如果那一年可以整除400

如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？
: P% i. w, I" e0 l3 R( h8 \; w
我写的function是这样的：

1. leapyear<- function(dates, years_to_add)) H% O6 A1 f# z  _( b3 t. A
   
2. {3 }' R+ N% L0 d/ k3 x
   
3.   if(!require(lubridate)) stop("install lubridate")6 ?% h: S/ q+ e
   
4.   if(years_to_add > floor(years_to_add)) stop("error")- {( X+ g1 S; |
   
5.     t1 e/ w4 j: y
   
6.   new <- dates + years(years_to_add)
   1 N6 T\" S/ r8 m
7.   new[& U$ J. H; T* L( ^' w
   
8.     leap_year(year(dates)) &
   6 Q/ k/ q6 Q1 @* p
9.       !leap_year(year(dates) + years_to_add) & # \# g+ s& b0 d- J& R
   
10.       month(dates) == 2 &
    ( y0 m& {, o! E! @- e
11.       day(dates) == 29+ a: d( u7 q! C* ?
    
12.     ] <- NA
    ) c+ V' w4 C7 ?. t
13.   new_dates
    + N2 ?: a0 s+ l& d- E
14. }
    & e( t\" `2 H\" U  a0 ?) _4 J8 v
15. / r* U* o5 E! |
    
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

不知道对不对，但是检验的时候显示ymd找不到。。。。

请各位大师帮帮忙！小妹感激不尽！