R - if（）函数中长度为零的参数

Question

l_v2 = length(v2)
v2s = sort(v2)
max = 1
min = 1000
for (i in l_v2 /4 : l_v2 *3/4) {
  if( v2s[i]>max ) { max=v2s[i] }
  if( v2s[i]<min ) { min=v2s[i] }
}

代码的目标：在中位数周围选择v2的50％，并确定最大值和最小值之间的差异。

错误：Argument is of length zero函数中的max if()。 max和min也是不正确的值，可能是这样的结果。