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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

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

, U# L; b8 I- v$ C6 ^8 A如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？

9 v+ ~. b, x9 i7 y3 Z我写的function是这样的：

1. leapyear<- function(dates, years_to_add)0 l9 d4 e4 g1 U7 z7 K
   
2. {% \. }6 a2 z1 W( L. t- u+ d
   
3.   if(!require(lubridate)) stop("install lubridate")3 M& D; ^# K3 D& u
   
4.   if(years_to_add > floor(years_to_add)) stop("error")& s8 P# K: [5 z4 r6 s, x
   
5.   8 P4 l+ I/ {& C# {$ D5 `8 G5 w8 V
   
6.   new <- dates + years(years_to_add)' z: B+ V9 L! a+ i) g
   
7.   new[
   4 `+ W7 D( O- l$ z
8.     leap_year(year(dates)) & 4 s$ R0 u! c1 N4 J6 D
   
9.       !leap_year(year(dates) + years_to_add) & 6 M3 j- W9 B1 e' @& }3 B
   
10.       month(dates) == 2 &
    9 S\" g# f' A8 ?- W& X
11.       day(dates) == 29
    5 u$ v* h4 k# v6 I
12.     ] <- NA3 ]* ^. }' r/ V5 n( O1 F! O
    
13.   new_dates
    . J, x! @5 \% r& v8 o6 Y# H+ [
14. }
    ; u' Z9 @* w7 V) t# v2 F( D2 k
15. 
    7 V; ~( E3 Z1 O
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

不知道对不对，但是检验的时候显示ymd找不到。。。。
( h, C$ f1 v" D
请各位大师帮帮忙！小妹感激不尽！