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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
如果那一年可以整除4（比如2004），2月就有29天
# V8 r0 [1 ?; Z* l$ S+ \如果那一年不能整除100
如果那一年可以整除400
7 x3 U9 P4 C  a: I4 ~* V  P( ~9 a
如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？

我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   / A* P) c* A. ^, D' d
2. {; ]\" v' L' W* f: y' H9 I& A
   
3.   if(!require(lubridate)) stop("install lubridate")
   1 m% N* E( u! x5 H/ _2 r& n$ }8 p: f
4.   if(years_to_add > floor(years_to_add)) stop("error")3 m0 @5 U  Q! q! o
   
5.   
   : x4 v0 \* K7 v! B2 c# X8 s- d
6.   new <- dates + years(years_to_add)& n. A* v! f3 _
   
7.   new[
   ; r8 E) \, z; D. v+ g. W1 c) u
8.     leap_year(year(dates)) &
   - Y3 i, H4 F/ Q6 m. s+ J8 u
9.       !leap_year(year(dates) + years_to_add) &
   # L! {- a) e. f4 y( i
10.       month(dates) == 2 &
    & Y5 n+ o; o( ?; u
11.       day(dates) == 29! e$ o9 i8 i  i4 ^& a0 U! g# Y\" S  _& E
    
12.     ] <- NA) E, C6 M6 f+ L: Z7 \( F
    
13.   new_dates$ V3 [! p- N! B3 k1 m
    
14. }5 v2 V! j; U, T. k1 L
    
15. 
    % M1 @, x( e, h. Q2 X; v
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

不知道对不对，但是检验的时候显示ymd找不到。。。。
9 C6 I* [& ?2 G4 {
请各位大师帮帮忙！小妹感激不尽！