如何对第一个偶数，奇数然后偶数的向量使用循环和条件语句

Question

这似乎很简单，但是我尝试使用R生成一个从-2到100的矢量，从-2到50的偶数，然后从45到69的奇数，再从72到100的偶数。 / p>

我尝试使用ifelse函数以及！i %% 2 == 0，但无法从此循环中创建一个从偶数到奇数再变回的矢量

a<-c()
b<-a
d<-a
for(i in seq(-2,100,by=2)){
  a<-c(a,i)

  if(i>=76){
    d<-c(d,i)
  }  
  if(i>35){
    b<-c(b,i+1)
  }

  if(i<40){
    a<-c(i)
  }
}
print(a)
print(b)
print(d)
vec<-c(b,d)
print(vec)