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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
如果那一年可以整除4（比如2004），2月就有29天
5 |# k: T( O8 y0 j, Q- _* ?1 \如果那一年不能整除100
4 c( C; s  H$ h如果那一年可以整除400
0 w) R- d& ]' R* P: f
如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？
6 H7 A; x7 A/ n4 q
0 c3 c% D2 y" L' t0 S7 t( w6 u我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   ( F9 T3 c5 F- y/ s+ ^
2. {
   9 s( N/ {/ y% h+ z# S
3.   if(!require(lubridate)) stop("install lubridate")6 a. m2 S( f/ D
   
4.   if(years_to_add > floor(years_to_add)) stop("error")
   # i4 ]7 L0 P# j5 c* A! N
5.   : r2 n- `/ g9 ]
   
6.   new <- dates + years(years_to_add)% |$ s+ P. M5 J
   
7.   new[8 Y; ]& d; [/ P7 ?9 h
   
8.     leap_year(year(dates)) & 1 B# ~1 q\" A/ A+ l. T
   
9.       !leap_year(year(dates) + years_to_add) & 4 x1 p+ s, r- x, ^( n
   
10.       month(dates) == 2 & 8 J& f! y! O1 h) ?- {
    
11.       day(dates) == 29
    3 Q, L  B5 {. N  O+ L2 `
12.     ] <- NA. R$ u$ T% l+ i
    
13.   new_dates5 R3 A' L0 s' B! {
    
14. }
    & |  l4 h8 m$ n, x; ~0 X$ K6 v
15. 
    ; b' G- @* f\" T4 C\" h
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

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

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