对于R中的if else循环，什么是更快的替代方案

Question

我正在应用以下代码

x <- rep(NA, t)
for(i in 1:length(t)){
if(Close[i] > sma[i]+0.0017){
x[i] <- 1}
else{x[i] <- 0}
}

但处理此代码需要将近30分钟。如何以更有效的方式重写它？