提高循环性能

我正在努力提高以下代码的性能,该代码可运行约200万个条目。首先,条件在循环内部,而现在在循环外部,这带来了一些改进,但还不够。

你还有其他建议吗?

先感谢您 !

if (Floor=="Yes") 
{ 
for (i in 1:length(X))
  {
     base_short_term[i] <- pmax(numeric_vector1[i],(1+numeric_vector2[i])^((numeric_vector3[i])/(1+numeric_vector4[i]))
  }
} else 
{
for (i in 1:length(X))
 {  
     base_short_term[i] <- pmin(numeric_vector5[i],(1+numeric_vector3[i])^((numeric_vector5[i])/(1+numeric_vector7[i]))
 }
}