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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

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

如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？
( ]! z1 [! V. P! p# e( K
) u# \* W* f+ H3 E" P) F我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   ! \( S& r  c5 Y, g2 `. b
2. {
   ' e; w/ D- _% S' W8 B* Q
3.   if(!require(lubridate)) stop("install lubridate")$ T: }4 p, X+ W' a, ]* l2 T
   
4.   if(years_to_add > floor(years_to_add)) stop("error")+ t9 J6 {% d* W9 y7 J
   
5.   & s) D; M) G7 y( E3 V
   
6.   new <- dates + years(years_to_add)( k) x' D7 [6 y7 z% D/ W# f
   
7.   new[7 L: V! f& K, c$ T% U) f5 i
   
8.     leap_year(year(dates)) & 5 P$ H4 H/ R. A/ H. e
   
9.       !leap_year(year(dates) + years_to_add) & ( s: s8 }/ [0 M3 B9 y
   
10.       month(dates) == 2 &
      B& ~* i* H' [\" [9 q6 _
11.       day(dates) == 29
    * c8 C( ?  @3 u+ k
12.     ] <- NA
    ' l1 H; L  K' E4 [9 A
13.   new_dates& {& S! v4 N4 v' K: J' ~
    
14. }
    # @0 Q* g. t. W, [/ L& N( L$ V+ D! [
15. & @; B1 y  s: D
    
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

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

请各位大师帮帮忙！小妹感激不尽！