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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
4 g5 ~1 v. I, s8 X如果那一年可以整除4（比如2004），2月就有29天
如果那一年不能整除100
如果那一年可以整除400
8 E4 K" s5 @! c6 o; x1 Z
! s  v5 z9 ^+ b& }: O- C; [+ m如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？

我写的function是这样的：

1. leapyear<- function(dates, years_to_add)4 Z9 u2 K. @( m0 s, [2 R\" o! b
   
2. {. G6 @* @+ v( @- `
   
3.   if(!require(lubridate)) stop("install lubridate")
   # L' ?  E% P: q7 h- l
4.   if(years_to_add > floor(years_to_add)) stop("error")\" G& Q  K$ E$ y5 F% H
   
5.   
   \" d6 z) ^0 l& _+ Q8 I/ x3 W
6.   new <- dates + years(years_to_add)+ \8 Q7 N$ p; i7 ~
   
7.   new[; X( y1 t0 Y/ J  i$ Y) S( h- _
   
8.     leap_year(year(dates)) &
   ! h- U  h, Z9 R\" N
9.       !leap_year(year(dates) + years_to_add) & * Q% {# j8 Y7 l5 [
   
10.       month(dates) == 2 &
    / O; g  @! R  v' m' z( ~
11.       day(dates) == 297 D4 M' w3 y( F/ R\" T% u  X\" s
    
12.     ] <- NA3 v, i8 Z+ A# R# E6 s3 b
    
13.   new_dates7 w- X3 F6 t) h3 F+ I$ X* N
    
14. }
    , t$ V, b\" Z, X1 X6 p) H5 T3 @# _
15. # t8 j7 J5 c# _# g
    
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

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

# d" K3 X5 v* O3 U4 b- w8 B4 s5 V; O请各位大师帮帮忙！小妹感激不尽！