请教大神循环比较怎么弄

op<-c(1,3,5,4,8,10),pl<-c(1,5,4,8,12,10)aaa<-cbind(op,pl)opo<-c(2,3,5,4,7,10)plo<-c(0,5,4,8,9,10)bbb<-cbind(opo,plo)

求aaa[i,]
求op>4且pl< 8的是哪几行？
同时aaa[i,]比i-1和i+1都要大
i的值是多少？
代码怎么写？

我的代码跑不出来，求指正！！

for (i in 1:nrow(bbb)) {  if(aaa$op>bbb$opo[3]&     aaa$pl>bbb$plo[2]&     aaa$pl>aaa$pl[i-1]&     aaa$pl>aaa$pl[i+1])    {print(i)}}