请教大神循环比较怎么弄
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)}
}