- 在线时间
- 0 小时
- 最后登录
- 2013-8-1
- 注册时间
- 2013-8-1
- 听众数
- 0
- 收听数
- 0
- 能力
- 0 分
- 体力
- 3 点
- 威望
- 0 点
- 阅读权限
- 10
- 积分
- 2
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 1
- 主题
- 1
- 精华
- 0
- 分享
- 0
- 好友
- 1
升级   40% 该用户从未签到 - 自我介绍
- 在校学生
 |
我要写个function来检验末年是否是闰年。开头这样:闰年这里的定义是:" M# u1 Z. K [3 `% t
如果那一年可以整除4(比如2004),2月就有29天. S# w' n( r/ p6 Y7 Q5 F( e
如果那一年不能整除100
$ O2 k7 h. h7 H$ ?: R# C7 Y如果那一年可以整除400$ Y6 R# D9 S8 Y& T6 v
: |" Z7 O7 j" _( Y* F8 H. l如果x<1,这个function就要return “error”。我不大懂这个条件的意思,可否请大师解释下?
+ ]# b' n/ N7 M# O& c& p1 Q1 Y6 J( d4 e# I% A5 J3 X" d0 X
我写的function是这样的:- leapyear<- function(dates, years_to_add)
) L2 I+ n\" k, p\" Y( O7 F: S - {
: n* S8 L9 j- P - if(!require(lubridate)) stop("install lubridate")
6 t4 _3 {' \6 `: e# z' A4 k - if(years_to_add > floor(years_to_add)) stop("error") R$ U; ^% E5 ~\" G/ f1 W- d j, \
- ) }) y* V' ?; d6 t\" U
- new <- dates + years(years_to_add)& i* C\" ]) M. ^
- new[
, X; F v# J. H - leap_year(year(dates)) & 0 l) l( b% Q; M
- !leap_year(year(dates) + years_to_add) &
8 C% k# h0 N/ T6 W# Q9 W% E0 R - month(dates) == 2 & 8 M6 Y4 J0 \! {3 |8 k
- day(dates) == 297 b3 C) q( L9 B8 _# p1 m X
- ] <- NA
7 Q+ R& f( |0 i0 p6 |' M, m - new_dates4 t3 I4 s# K7 ^0 H7 N0 V3 J9 c
- }1 F8 Q5 b\" K/ X* b2 M7 e8 Q
. `! t% H0 r& V2 c0 w- dates <- ymd(c("2004-2-28", "2004-2-29"))
复制代码 不知道对不对,但是检验的时候显示ymd找不到。。。。2 ^/ E: L5 w1 Z9 ?
. a5 d5 B/ D% }" P `, d
请各位大师帮帮忙!小妹感激不尽! |
zan
|