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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
如果那一年可以整除4（比如2004），2月就有29天
$ g9 a+ M) n! U" d/ u如果那一年不能整除100
如果那一年可以整除400

如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？
5 {) K3 G- w  f) {
我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   ' R5 H5 ~) b( ~. J0 P' p
2. {
   : q( e0 c8 P, b% _, g2 {
3.   if(!require(lubridate)) stop("install lubridate")
   $ T\" F\" j& z  w* X8 l
4.   if(years_to_add > floor(years_to_add)) stop("error")
   3 S$ ?& R( l: ^: H( V: [  [1 C$ g
5.   3 x# }. h7 e\" |' T
   
6.   new <- dates + years(years_to_add)3 y8 s4 L( u9 m) w
   
7.   new[3 V) P5 J6 I6 s) L. l0 g
   
8.     leap_year(year(dates)) &
     q8 \' _  j6 a# g  ]& f
9.       !leap_year(year(dates) + years_to_add) &
   5 D& m; l# V6 E
10.       month(dates) == 2 & : b# T  Y, B9 m7 u9 k
    
11.       day(dates) == 29
    # K$ t: x( g. N8 ]: e/ L9 g
12.     ] <- NA
    $ S4 l4 `# U* F2 e\" ?% I/ r5 ~
13.   new_dates
    ; E6 V( ]  m, ]* F* B7 K
14. }  C8 s5 u9 D6 d+ ]
    
15. \" t  f9 a$ @' x4 v4 t
    
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

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

. @5 I4 M# I3 H1 T8 v& ?请各位大师帮帮忙！小妹感激不尽！