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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
如果那一年可以整除4（比如2004），2月就有29天
如果那一年不能整除100
如果那一年可以整除400

如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？

我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   % h* ]+ [, b  o3 A
2. {
   . H4 S6 ?/ \* x  G+ j; _( R
3.   if(!require(lubridate)) stop("install lubridate")
   / n( _1 ^$ @7 P' l3 n3 f6 d
4.   if(years_to_add > floor(years_to_add)) stop("error")
     w  Q$ M# N' m( A, j/ R
5.   : X4 T3 y8 ^& Z, F/ R
   
6.   new <- dates + years(years_to_add)
   . U, F; B4 X6 N% g( S
7.   new[
   / }\" w# ]5 Y8 ]& f, W2 w! j7 h
8.     leap_year(year(dates)) & ) ~+ h! |& ?% g  W0 o
   
9.       !leap_year(year(dates) + years_to_add) &
   & C/ ?: R1 e4 F6 k9 k! ]1 D
10.       month(dates) == 2 &
    0 s1 X( P: X1 j; c2 R( N
11.       day(dates) == 29
    $ N2 X; o/ I. L/ M- i
12.     ] <- NA\" L$ W. c* J7 _1 N- R$ ]! ^
    
13.   new_dates' y7 u+ R, Y  ~/ E9 K, P
    
14. }1 Q* t0 @3 V! ]2 ]) ~4 H, v; _+ ^
    
15. 
    1 c  _0 Y$ k; q
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

不知道对不对，但是检验的时候显示ymd找不到。。。。
8 z5 M& x8 P0 w5 U  r1 |
请各位大师帮帮忙！小妹感激不尽！