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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
7 ]7 n" b2 p5 e0 |% F/ k' P/ I2 _如果那一年可以整除4（比如2004），2月就有29天
6 Q6 r& d$ E9 {0 i如果那一年不能整除100
如果那一年可以整除400

如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？
6 C; c3 p2 ^. h- S" R0 I
我写的function是这样的：

1. leapyear<- function(dates, years_to_add)* |3 ~5 s* [' P
   
2. {
   4 b. z0 \7 p% K$ p
3.   if(!require(lubridate)) stop("install lubridate")  d/ M4 f' i$ d- @
   
4.   if(years_to_add > floor(years_to_add)) stop("error")
   * g4 o- g1 E! L& b
5.   ; ^' G; ~  t; x9 t/ e* Y9 ]
   
6.   new <- dates + years(years_to_add)
   * i# y3 f# U0 O/ w
7.   new[
   $ I) z- d% t' B
8.     leap_year(year(dates)) & ) ?( m+ t, U7 l+ r6 e: r3 A) x
   
9.       !leap_year(year(dates) + years_to_add) &
   # m. F' ]1 z\" K# P# t/ f
10.       month(dates) == 2 & # w% O( M7 G) [% I# f- e' |
    
11.       day(dates) == 297 p) @! Q' S; Z1 J9 h
    
12.     ] <- NA
    5 l1 K+ E% J% U3 E! f' j
13.   new_dates
    ) T$ ]7 `7 A% ?$ k! `: p
14. }
      c& q4 a$ b! ?7 d: K5 l0 E( C0 Z
15. ( u! I, U' y0 ?: a( H
    
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

不知道对不对，但是检验的时候显示ymd找不到。。。。
3 `; W0 z2 h0 O
请各位大师帮帮忙！小妹感激不尽！