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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
如果那一年可以整除4（比如2004），2月就有29天
) L: {2 H: J$ U1 i! j! v6 D如果那一年不能整除100
如果那一年可以整除400
; [8 v9 K5 L. E7 B$ A$ K( G: y* B6 v
如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？

9 `9 J. e1 L" ~1 K1 v+ ?- {我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   ! x6 z4 Q3 r2 v% Z2 W  Y8 w
2. {: Z3 w6 Q( {5 z7 Y
   
3.   if(!require(lubridate)) stop("install lubridate")& `5 e* [' a7 \$ C- R
   
4.   if(years_to_add > floor(years_to_add)) stop("error")
   + L2 e* N6 n' W( f; Y- F
5.   
   / q  U, f3 s# D# f( |6 b+ i
6.   new <- dates + years(years_to_add)% E0 H! k! K, G9 c  T7 {3 ?% u, a3 o
   
7.   new[- `\" R) d0 V3 \; O3 ^3 M' ~
   
8.     leap_year(year(dates)) &
   : ], s2 Z( H: @  b( H
9.       !leap_year(year(dates) + years_to_add) &
   . j/ H7 W2 f* U\" Z( ?1 ]
10.       month(dates) == 2 & / r\" ]3 }2 c5 R6 M$ w
    
11.       day(dates) == 29( t. x, W% a1 n  o
    
12.     ] <- NA. }3 a! n8 s1 h! L\" M  [
    
13.   new_dates
    9 Z& k2 A6 q- v+ D1 ~1 a3 ^* ?
14. }
    & S/ L7 m% c$ n+ y
15. 
    ) s5 {4 b$ g- R
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

不知道对不对，但是检验的时候显示ymd找不到。。。。
: ?* D. |5 [: V
请各位大师帮帮忙！小妹感激不尽！