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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
/ B' K; y- X3 s. z; R% Q# ]7 ]8 Y如果那一年可以整除4（比如2004），2月就有29天
7 T+ {' U3 H1 e如果那一年不能整除100
如果那一年可以整除400
; F9 ~# t+ X/ ?+ L! @
, N5 s( r( N! y! i. g如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？

我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   4 E( `  D' ~, y7 V
2. {
     R- d8 w* p7 X2 |
3.   if(!require(lubridate)) stop("install lubridate")+ n  J) ^4 {- Q
   
4.   if(years_to_add > floor(years_to_add)) stop("error")
   * T; u! m8 J2 K! I/ f( l4 t- ~! g
5.   $ g9 `; t8 s. i: b, Y5 _* @
   
6.   new <- dates + years(years_to_add)
   5 ?& F5 T! ?' u8 W
7.   new[/ M# }/ ^4 n3 k) c
   
8.     leap_year(year(dates)) &   m$ ?3 b& r) N1 f: {9 d& D! N
   
9.       !leap_year(year(dates) + years_to_add) &
   1 Y6 b\" N# z, j; ^& ?: d
10.       month(dates) == 2 & 8 a/ G4 @; W* j0 c! T
    
11.       day(dates) == 29# q, H; |* m. L) {+ H6 j2 X+ y5 F; d2 N
    
12.     ] <- NA4 ]$ f* u6 X& O  e3 D  K\" `
    
13.   new_dates1 p, G( b- Y4 e5 m# l- F
    
14. }; {1 `  _* {! P
    
15. ) o/ S2 i) Y9 Z
    
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

不知道对不对，但是检验的时候显示ymd找不到。。。。
+ a. X$ z, D# M
' j9 u  d0 f. ]请各位大师帮帮忙！小妹感激不尽！