for in r

for (val in x) {
if(val %% 2 == 0)  count = count+1
}