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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
; c. Z. V; S- I1 @3 }% w) w% P3 I$ m8 k8 {如果那一年可以整除4（比如2004），2月就有29天
, h5 i0 b& C5 s, b1 b如果那一年不能整除100
如果那一年可以整除400
5 Z, x. o, i: q5 `& o
如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？

: S, h& t& g& R" D我写的function是这样的：

1. leapyear<- function(dates, years_to_add). h% c9 d! S: F: J: \
   
2. {
   2 H* Q- ~' m0 ~- i
3.   if(!require(lubridate)) stop("install lubridate")
   % C+ C5 f; d$ o
4.   if(years_to_add > floor(years_to_add)) stop("error")
   8 V( l2 n2 f. q! k1 I' E0 d. A
5.   
   \" y+ ?4 ~; h, G\" |3 a+ y* q
6.   new <- dates + years(years_to_add)( P0 h7 c' s, [, t1 D
   
7.   new[3 N+ h! E1 I( r* T: c
   
8.     leap_year(year(dates)) &
   5 J) W1 Z* V' x8 b$ _3 p
9.       !leap_year(year(dates) + years_to_add) & , I3 ^9 B  M6 C9 e
   
10.       month(dates) == 2 & - K8 F* H) K7 Q4 |1 i
    
11.       day(dates) == 295 i! r9 H2 U7 Y; q1 s\" q3 M* q  ?/ U
    
12.     ] <- NA
    & g9 u; F  E5 Z
13.   new_dates
    / j0 c5 K/ J9 L1 D
14. }# e3 O! [# p* [/ |
    
15. 1 Y7 {. C\" U3 ~
    
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

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

5 U7 ~, _. x" D6 o0 M2 F, k+ f请各位大师帮帮忙！小妹感激不尽！