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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
如果那一年可以整除4（比如2004），2月就有29天
如果那一年不能整除100
- f) L8 I/ q. `3 S9 N5 |( y  h如果那一年可以整除400
5 z) N" b6 z$ v. p4 j1 K
如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？

$ ?7 B. y3 O4 P) s# J我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   0 f: h& V5 k) h/ Q5 p1 D7 m
2. {2 I8 k% A4 I% s( n% }) f  @
   
3.   if(!require(lubridate)) stop("install lubridate")
   : M8 r\" P7 [\" z5 `7 X
4.   if(years_to_add > floor(years_to_add)) stop("error"), j. E$ c/ R, z  [) q. l6 u
   
5.   2 a. D( G* E6 ?5 D  Q- N
   
6.   new <- dates + years(years_to_add)# q7 D6 n2 |9 M- W  }3 J6 H
   
7.   new[
   / ^; u8 k) M# J. r2 L& h
8.     leap_year(year(dates)) &
   % b% r* e\" T& i
9.       !leap_year(year(dates) + years_to_add) & # G1 X7 q! m+ ?
   
10.       month(dates) == 2 &
    + e( N3 F: ^8 U9 i/ j  W
11.       day(dates) == 29. {; o1 X: B/ A3 Z
    
12.     ] <- NA' W0 p' V% B' M; \
    
13.   new_dates/ N) c, J/ A4 q( ~$ N% X
    
14. }# h: w7 S& ?/ s7 W# A2 F9 F( R$ l2 s
    
15. + \! l' D4 i- b/ p
    
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

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

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