timecor <- function(x,y)
{
  for(i in 1:length(x))
  {
    if(x[i+1]-x[i]>0&y[i+1]-y[i]>0)
    {
      m=1
    }
    else
    {
      m=0
    }
  }
    return(m)
  }
每次运行都报错
Error in if (x[i + 1] - x[i] > 0 & y[i + 1] - y[i] > 0) { :
  missing value where TRUE/FALSE needed
我查了一些，知道可能是IF中的判断框不能表示成T或F 于是就报错了，可是怎么解决呢，我的判断框语句哪里出错误了呢