Skip to content
Prev 304304 / 398503 Next

check and verify

Hi
test<-read.table("clipboard", header=T)
test
  A B C D  E  F
1 a b c d 40 30
2 a f a b 20 10
3 x m y m 50 30

test[,3]%in%test[,1]*test[,5]
[1]  0 20  0
test[,4]%in%test[,2]*test[,6]
[1]  0 10 30

Is this what you want?

Regards
Petr