うるう年とRプログラミング

Question

私は、指定された年の期間にうるう年を返す関数を書いておきたいと思います。しかし、私のコードは論理ベクトルとして結果を返します。私は、下記のコードのように結果が "C（2000,2004,2008）"

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

ans(2000,2010) 

TRUE FALSE FALSE FALSE TRUE FALSE FALSE FALSE TRUE FALSE FALSE

あるべき数値ベクトルで結果を得る何を行うことができます

Answer 1

あなたのコードは、ちょうど若干の変更を必要とします：

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