闰年与R规划

我想写一个函数，返回指定年份持续时间内的闰年。但是我的代码以逻辑向量的形式返回结果。我该怎么做才能得到数字向量的结果，比如下面的代码，结果应该是“c（200020042008）”

---

“ans您的代码只需要稍微修改一下：

ans<- function(year1, year2){
  return(c(year1:year2)[((c(year1:year2) %% 4 == 0) & (c(year1:year2) %% 100 != 0)) | (c(year1:year2) %% 400 == 0)])}

> ans(2000, 2010)
[1] 2000 2004 2008

ans（2000、2010）
[1] 2000 2004 2008
您的代码只需稍作修改：

ans<- function(year1, year2){
  return(c(year1:year2)[((c(year1:year2) %% 4 == 0) & (c(year1:year2) %% 100 != 0)) | (c(year1:year2) %% 400 == 0)])}

> ans(2000, 2010)
[1] 2000 2004 2008

ans（2000、2010）
[1] 2000 2004 2008
这是一个不同的问题，因为它用于检查任何给定年份之间的闰年，而不仅仅是指定年份！这是一个不同的问题，因为它用于检查任何给定年份之间的闰年，而不仅仅是指定年份！