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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
如果那一年可以整除4（比如2004），2月就有29天
如果那一年不能整除100
  I+ f: q; T# R( Z1 N+ _如果那一年可以整除400
3 T1 r# g+ u' z
. K3 Y( X+ O5 ~. T2 ~+ o, g如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？

我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   ! `: w: L) c\" S/ ?6 m
2. {
   9 r* o, o) Z+ A  P4 J0 d* H7 X0 F* m6 s
3.   if(!require(lubridate)) stop("install lubridate")3 F! Q. m% u! L8 C) S5 ]
   
4.   if(years_to_add > floor(years_to_add)) stop("error")* F0 I/ f7 n6 ~$ l0 \1 E
   
5.   * p8 Z/ Y7 m; Y% W# ]2 q5 S+ `
   
6.   new <- dates + years(years_to_add)) s( P2 Q4 x& Q
   
7.   new[
   . F1 |1 `( @2 E6 G, b0 P  ]& K
8.     leap_year(year(dates)) & $ b: ?- i9 v9 j) l8 g
   
9.       !leap_year(year(dates) + years_to_add) & 6 J8 S& Y; ^' [
   
10.       month(dates) == 2 & ( ^% M( d9 c' y. B5 m  x% }
    
11.       day(dates) == 29$ q5 ?9 Z/ k! d0 w; _
    
12.     ] <- NA/ I7 L\" B& f. g- s
    
13.   new_dates, R) H\" P7 B5 J. l& |. x8 I* p
    
14. }  B* D4 Z( ]0 G& Q2 z\" g
    
15. 
    0 f9 @9 P, q\" O  w; H5 Z
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

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

5 ^0 V0 g1 }$ C1 Z# J请各位大师帮帮忙！小妹感激不尽！