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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
* n  E# F) f- k. t  t1 X如果那一年可以整除4（比如2004），2月就有29天
如果那一年不能整除100
如果那一年可以整除400
/ r1 k% @1 C4 Q1 j, t
如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？
; s) S& M. ?  D
我写的function是这样的：

1. leapyear<- function(dates, years_to_add)5 y6 a% x' c# m) T* S. J5 X& u$ Q
   
2. {9 C4 S2 r6 d  R: c( ]) H
   
3.   if(!require(lubridate)) stop("install lubridate")
   - P& Q. i0 i- c5 g2 j8 [
4.   if(years_to_add > floor(years_to_add)) stop("error")
   + O- m5 S! S4 F) M
5.   1 A4 R! J0 ^# L\" L, V( }' Y
   
6.   new <- dates + years(years_to_add)$ P' Y% z6 [: F5 c
   
7.   new[& x8 \; x. ?+ O# {& g  z2 X. F
   
8.     leap_year(year(dates)) & . x4 R& E- c7 e& }
   
9.       !leap_year(year(dates) + years_to_add) & - w* ]. ?' O' m0 z$ q8 }2 Q
   
10.       month(dates) == 2 &
    - M7 V6 {1 F% i5 O+ E
11.       day(dates) == 29
    \" T# O, e\" A8 h: e# r1 O7 H
12.     ] <- NA% v* i! ]3 Y\" q% T
    
13.   new_dates
    9 U# ~) ?4 i, }6 P! T% j
14. }
    % ]0 x0 _& P/ w$ V6 @# o+ e
15. 
    6 S- T' |* g) }
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

不知道对不对，但是检验的时候显示ymd找不到。。。。
8 S% T# Q9 e! i9 m. B" S  @
9 m, Z" U$ X; k. A9 X请各位大师帮帮忙！小妹感激不尽！