我做了一个函数来计算某一年是否是闰年,如下所示:
isLeapday<-function(x) {
if (as.numeric(x)%%100==0 & as.numeric(x)%%400==0 | as.numeric(x)%%4==0 & as.numeric(x)%%100!=0) return (TRUE)
else return (FALSE)
}
isLeapday(x)
我收到错误消息
“在 if (as.numeric(x)%%100 == 0 & as.numeric(x)%%400 == 0 | as.numeric(x)%%4 == 中:条件的长度 > 1 并且只有将使用第一个元素”
基本上只计算第一个值,我如何使它计算向量中的每个值,如果可能,返回一个逻辑向量?