R语言，循环比较，求i的值

请教大神循环比较怎么弄

op<-c(1,3,5,4,8,10),
pl<-c(1,5,4,8,12,10)
aaa<-cbind(op,pl)
> aaa
     op pl
[1,]  1  1
[2,]  3  5
[3,]  5  4
[4,]  4  8
[5,]  8 12
[6,] 10 10

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的是哪几行？
同时比i-1和i+1都要大
i的值是多少？
代码怎么写？

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

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

}

https://blog.csdn.net/blackrosetian/article/details/79029436