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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
( C; n7 x* L. p' K5 e+ O如果那一年可以整除4（比如2004），2月就有29天
如果那一年不能整除100
2 C# N* F% e& z3 f, c! `1 I如果那一年可以整除400

4 {- G1 x3 a" ]. i如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？
0 _: U! N0 [1 b3 C, |4 x
我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   ( w. r  {0 Q\" o4 \9 E* {+ |0 C
2. {1 w* T* |5 f7 r4 j. ^$ P  I. Z; Z
   
3.   if(!require(lubridate)) stop("install lubridate")
   ) V9 C: g/ ~\" k\" e7 i' h1 D6 t( R
4.   if(years_to_add > floor(years_to_add)) stop("error")* D; Q2 n6 Y/ u
   
5.   
   / {1 B' \( f, s* G8 R. [
6.   new <- dates + years(years_to_add)
   # c: h8 d\" e' [# g
7.   new[, T9 e+ ^0 h/ {$ W
   
8.     leap_year(year(dates)) &
   / W2 J1 z3 {6 P6 P; k8 q- m7 R
9.       !leap_year(year(dates) + years_to_add) & 3 K4 @1 z! @2 i4 |- U
   
10.       month(dates) == 2 &
    ' K* g, I* q2 @1 P0 X4 Q
11.       day(dates) == 291 [9 j4 G( N9 `0 f
    
12.     ] <- NA5 V+ A. y5 b1 @. ]3 M# o( |- n
    
13.   new_dates; L2 D9 ?\" S6 ?' ~
    
14. }
    0 k* N$ x( G2 U2 c
15. ) I5 X! Z1 b* H) O6 e
    
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

不知道对不对，但是检验的时候显示ymd找不到。。。。
$ i3 n$ K( g- J% S% p
1 ~5 ]7 ?$ b0 S9 a8 R3 ?请各位大师帮帮忙！小妹感激不尽！