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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
1 |3 k7 V5 z7 t9 ]2 Y4 n1 V如果那一年可以整除4（比如2004），2月就有29天
( M% e  f9 Y3 E0 P- n( N如果那一年不能整除100
如果那一年可以整除400

5 l3 ^! H& }* F7 L如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？
2 A& _& e8 N# Z& ~' L
. C9 L% u6 I/ z7 o9 [/ a: y我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   2 Y  B1 [5 d% z: s1 @. _' n
2. {
   9 O+ g& ~9 X0 e, q; Z
3.   if(!require(lubridate)) stop("install lubridate")4 E7 g. D& T3 k* U) i5 s/ M
   
4.   if(years_to_add > floor(years_to_add)) stop("error")
   9 n6 e& E. e, Y, a1 z
5.   2 R, }! S/ C: [6 v  z8 ]+ p
   
6.   new <- dates + years(years_to_add)8 i8 ?4 \5 \/ H  {# t% ~
   
7.   new[* z2 G% p/ [: g( A\" u) h
   
8.     leap_year(year(dates)) & + `1 |# S) G5 a7 x  T
   
9.       !leap_year(year(dates) + years_to_add) & % a& _; W, a/ J
   
10.       month(dates) == 2 &
    0 f6 E; b. @4 W/ e$ ]
11.       day(dates) == 294 _* y/ H' Y) ?% J& X* r
    
12.     ] <- NA6 M. ?+ n  \8 y$ Z
    
13.   new_dates; [. n4 }2 R  P1 v! M+ b
    
14. }
    ) _9 G6 ~- t) Z
15. 
    ! g! C2 C4 E$ {, c  ~% x4 k( h
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

不知道对不对，但是检验的时候显示ymd找不到。。。。
5 e: y' |2 S+ ~/ J
请各位大师帮帮忙！小妹感激不尽！