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

夜筱巫

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

1. leapyear<-function(x){}

复制代码

闰年这里的定义是:
如果那一年可以整除4（比如2004），2月就有29天
如果那一年不能整除100
9 z8 w3 Y  e  s1 l6 v2 `; w如果那一年可以整除400

& O- K4 v6 X# w( h如果x<1，这个function就要return “error”。我不大懂这个条件的意思，可否请大师解释下？

我写的function是这样的：

1. leapyear<- function(dates, years_to_add)
   ! J* Y4 i1 f/ Z* A
2. {
   8 w* F9 X+ z5 c  l
3.   if(!require(lubridate)) stop("install lubridate")
   1 C7 r- ?9 A- F; v0 G& b8 t. v* h' x
4.   if(years_to_add > floor(years_to_add)) stop("error")+ A9 y- l9 ~7 q
   
5.   
   - X% X9 W  @; C7 o8 R+ i
6.   new <- dates + years(years_to_add)
   1 V4 R' a1 r6 e6 b8 l( k, ?
7.   new[
   . f\" j* `5 b. O. }, Q) C- n
8.     leap_year(year(dates)) & # N2 |3 e; M! L' k) `( g* O+ H9 M: I3 `
   
9.       !leap_year(year(dates) + years_to_add) &
   ' y7 `+ ~3 X/ c  ~
10.       month(dates) == 2 &
    & p7 t% s. }* I4 K' `- f\" m
11.       day(dates) == 29
    3 G: r  m; N3 J6 p4 x+ V. E
12.     ] <- NA# K2 U$ h8 y% B$ k& A
    
13.   new_dates
    1 J+ C$ {) c7 Z  ?* P
14. }/ L0 U& I) C$ _8 E
    
15. ) a4 Z% I( l7 l$ f9 b4 [1 U
    
16. dates <- ymd(c("2004-2-28", "2004-2-29"))

复制代码

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

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