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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
如果那一年可以整除4（比如2004），2月就有29天
如果那一年不能整除100
& w9 u* [- A8 k+ ^如果那一年可以整除400
  t: J4 B) \1 z) L; b0 z. H6 \
如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？
  t: f. Y- L( |0 w( P# I
我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   ! z1 o0 q: `+ Z  Y* Z: E4 M; J
2. {
   \" A7 U7 L4 K  l
3.   if(!require(lubridate)) stop("install lubridate")\" A1 D3 C+ @5 z$ r+ D  [& E
   
4.   if(years_to_add > floor(years_to_add)) stop("error")  Y: T8 l1 D3 V4 Q6 z1 |  z
   
5.   , ^% I# S- t+ K: s$ Y6 ]
   
6.   new <- dates + years(years_to_add)
   ) B\" n/ Y- r- y) y5 {\" I5 j+ P
7.   new[8 k- J( z1 i: I  x  b# W
   
8.     leap_year(year(dates)) & & s$ X  x; g( a7 d) _
   
9.       !leap_year(year(dates) + years_to_add) & \" ^: `* `) L% A# x. r( S
   
10.       month(dates) == 2 &
    4 w2 }9 H/ t. D! m1 f2 O. E9 Q* ~; w
11.       day(dates) == 29
    , Q3 W1 \% F2 \
12.     ] <- NA1 f' R# P- K8 f
    
13.   new_dates
    # L% U3 F7 V! L( ~3 t- z
14. }) H9 ~) W# r/ Y$ i3 @
    
15. 0 A7 j8 R% _6 y5 `6 s+ A) {7 |
    
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

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

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