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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
如果那一年可以整除4（比如2004），2月就有29天
如果那一年不能整除100
$ O2 k7 h. h7 H$ ?: R# C7 Y如果那一年可以整除400

: |" Z7 O7 j" _( Y* F8 H. l如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？
+ ]# b' n/ N7 M# O
我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   ) L2 I+ n\" k, p\" Y( O7 F: S
2. {
   : n* S8 L9 j- P
3.   if(!require(lubridate)) stop("install lubridate")
   6 t4 _3 {' \6 `: e# z' A4 k
4.   if(years_to_add > floor(years_to_add)) stop("error")  R$ U; ^% E5 ~\" G/ f1 W- d  j, \
   
5.   ) }) y* V' ?; d6 t\" U
   
6.   new <- dates + years(years_to_add)& i* C\" ]) M. ^
   
7.   new[
   , X; F  v# J. H
8.     leap_year(year(dates)) & 0 l) l( b% Q; M
   
9.       !leap_year(year(dates) + years_to_add) &
   8 C% k# h0 N/ T6 W# Q9 W% E0 R
10.       month(dates) == 2 & 8 M6 Y4 J0 \! {3 |8 k
    
11.       day(dates) == 297 b3 C) q( L9 B8 _# p1 m  X
    
12.     ] <- NA
    7 Q+ R& f( |0 i0 p6 |' M, m
13.   new_dates4 t3 I4 s# K7 ^0 H7 N0 V3 J9 c
    
14. }1 F8 Q5 b\" K/ X* b2 M7 e8 Q
    
15. 
    . `! t% H0 r& V2 c0 w
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

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

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