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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
如果那一年可以整除4（比如2004），2月就有29天
如果那一年不能整除100
4 ?9 }0 }! I1 f( O7 ^# e如果那一年可以整除400
5 I. S( |5 ?) G& t- b+ k
3 ~/ a$ T" P) n1 z8 A2 W- c4 c8 [如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？
2 c4 n9 L  ?7 }: m
9 \: W( M" P3 g# q' m3 X# i我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   9 _; q* }' z# T, x; ]: [) b; q- Y
2. {+ ~, m4 t) Y/ B0 @7 q3 v
   
3.   if(!require(lubridate)) stop("install lubridate")
   2 M4 N0 j: o& l: P9 Q# ~- W9 {
4.   if(years_to_add > floor(years_to_add)) stop("error"). S$ k+ y' _' g4 t$ U
   
5.   1 n5 P2 M6 D9 ^! h3 s6 h
   
6.   new <- dates + years(years_to_add)! {7 T# }# L1 B5 |. h( @0 }9 _
   
7.   new[: v) J7 I, s\" `/ O/ _: f$ z0 p
   
8.     leap_year(year(dates)) &
   ; [( b; Y% i: C9 j5 }9 h
9.       !leap_year(year(dates) + years_to_add) & ; }6 \& k( u9 R0 ^. m
   
10.       month(dates) == 2 & * A: B$ F8 W. U
    
11.       day(dates) == 29
    ( A5 Q8 w  R: G
12.     ] <- NA
    # ~8 m; p/ J9 S9 Q
13.   new_dates' y7 t- H. N8 J, c
    
14. }: W7 U7 c& Z% p, [9 o
    
15. 
    * Z* o. [  s0 l2 y) w, [
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

不知道对不对，但是检验的时候显示ymd找不到。。。。
  [/ P& |9 |9 x, |! B( q  x
请各位大师帮帮忙！小妹感激不尽！