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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

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

+ U+ d6 f) H  ?/ Y2 g0 \' z% {+ t如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？
2 x) @0 d- ~2 j" y# F( {
* P4 |; ^! m: n) Y1 e& _我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   # ~- @) H6 k- B/ e\" j# o
2. {
   7 b3 z3 z& s! V\" |3 s! w
3.   if(!require(lubridate)) stop("install lubridate")% l; i# U3 p6 C# i\" T  @
   
4.   if(years_to_add > floor(years_to_add)) stop("error")
   / S\" E% [0 F% W; N
5.   ' h1 d% C$ @1 ]5 r: @9 s* d4 f
   
6.   new <- dates + years(years_to_add)& q1 Q$ Y\" t7 f) ^% A
   
7.   new[! z; G$ A& l, q
   
8.     leap_year(year(dates)) &
   / P\" W* z. s( s+ U& s
9.       !leap_year(year(dates) + years_to_add) &
   % L1 w( n\" Z0 x8 s3 M
10.       month(dates) == 2 &
    , \3 p: {8 @9 l0 g, f
11.       day(dates) == 29
    ' g+ D$ n8 F1 F8 w$ Q/ d/ A\" M
12.     ] <- NA
    4 e& J' e+ A4 _) y9 N& S5 \( h+ n; z
13.   new_dates, F! T8 [: M( A& |7 T3 b( `# L
    
14. }
    # w6 F/ |& Q* N( n0 N9 f
15. \" A- e; ^4 U; \( ?; [# _
    
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

不知道对不对，但是检验的时候显示ymd找不到。。。。
+ p$ k7 l/ M3 d1 W2 O
请各位大师帮帮忙！小妹感激不尽！