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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
+ r' v7 X; n; r* R9 s如果那一年可以整除4（比如2004），2月就有29天
如果那一年不能整除100
如果那一年可以整除400
; Y5 i7 I4 P8 e  @
如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？

我写的function是这样的：

1. leapyear<- function(dates, years_to_add)% H# w. r( J- Z& v: C+ Z5 Y/ q# i
   
2. {  v$ _( J7 q3 X) I) M
   
3.   if(!require(lubridate)) stop("install lubridate")0 a  U\" ^) f# r: ]4 L
   
4.   if(years_to_add > floor(years_to_add)) stop("error")3 ^( D& E, V; W! n
   
5.   + N& U( e* k, }, b% s5 S) v7 t
   
6.   new <- dates + years(years_to_add)
   + _& W8 S, [  M) F0 X5 W& Q7 F
7.   new[0 ]8 a2 ^& m\" }6 N1 o3 {1 s
   
8.     leap_year(year(dates)) &
   , Y' }8 d  f5 D, k; g/ a. D
9.       !leap_year(year(dates) + years_to_add) &
   : I% f, D7 j, G2 e, D! G
10.       month(dates) == 2 &   v$ U3 G, A* f. E7 z
    
11.       day(dates) == 29
    / c9 b2 `* U( q. _8 X
12.     ] <- NA
    7 Z3 b5 k8 F* U- e: V! ]; q
13.   new_dates# ]4 Z4 y( P0 w( h3 k- z& Y3 z
    
14. }+ R+ M( m5 C5 R5 @  k/ V$ h
    
15. * D5 y# s3 G2 |
    
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

不知道对不对，但是检验的时候显示ymd找不到。。。。
8 _7 M9 T1 }) T% ~( ]( V9 F
: z  [/ a& A  Q# y5 s. W" f1 A请各位大师帮帮忙！小妹感激不尽！