仅包含偶数值的轴

Question

我觉得这应该是一个非常简单的问题，但我自己无法解决，也没有在这里找到任何解决方案。

z <- function(x){
if (max(round(reg(x))) %% 2 == 0) 
{
return(max(round(reg(x))))}
else if (max(round(reg(x))) %% 2 != 0) 
return(max(round(reg(x))) + 1)
}  

我想要的只是提取函数reg的所有偶数值，但它只是不这样做。我的任务是为功能reg的任何值创建一个仅包含偶数的轴。 谢谢！