x1<-c("a","b","a","b","a","b","a","b'")
x2<-c(3,2.2,4,5.4,6.1,4.8,3.2,7)
x<-data.frame(x1,x2)
for(i in 1:8)
{
  if(x$x2[i]/x$x2[])
}
其实x1,就是a,b,a,b,a,b,a,b这样的格式，只不过排序是1-8，然后我想求后面的数都跟前两个相比，比如
4/3-1
[1] 0.333333
5.4/2-1
[1] 1.454545
然后我想把x$x2[i]/x$x2[1]-1>1.5或者x$x2[i]/x$x2[2]-1>1.5的找出来，我想知道如何把i与1和2联系起来，就是我如何知道比如当i=7时，我就跟第一个比，i=8时我就跟第二个比，1的好算x$x2[i]/x$x2[i%%2],但是其他的呢，如果i=8怎样表示x$x2[i]/