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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
如果那一年可以整除4（比如2004），2月就有29天
如果那一年不能整除100
如果那一年可以整除400

5 O) J$ i; r4 s1 ]9 q9 X1 ^" @: Q0 f) H$ V如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？
! R4 [( A& e3 t4 V: _% ~# J& q5 ~
我写的function是这样的：

1. leapyear<- function(dates, years_to_add)* g\" {& {$ p  v, O5 F\" A- |
   
2. {2 p' X+ _- s$ V' K2 |' |# a+ J# `% G
   
3.   if(!require(lubridate)) stop("install lubridate")9 G1 ^: A4 }/ I( D3 R
   
4.   if(years_to_add > floor(years_to_add)) stop("error")
   1 @0 G2 @' [/ U\" h\" ^
5.   ! |$ [+ w% t! r\" \% r# }5 {
   
6.   new <- dates + years(years_to_add)
   3 H) y* y$ E\" s/ t3 `
7.   new[: J5 T4 X9 d: h: O/ g
   
8.     leap_year(year(dates)) &
   - G' V7 R* E6 M5 V
9.       !leap_year(year(dates) + years_to_add) &
   8 m# ?# \. y7 _* z5 b
10.       month(dates) == 2 &
    5 G, q; W- x8 C, v8 q9 O! o
11.       day(dates) == 29
    $ I8 H$ z& i# G
12.     ] <- NA
    \" @) {. \4 y( H* W3 F
13.   new_dates% m1 H9 ~( s& w' c
    
14. }
    , p\" E. [/ n+ r0 b
15. 2 u: b& l9 C0 Y1 ~+ M2 u\" D1 m) _: D0 B
    
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

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

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