[R] Switch and integer

[Knut Krueger]

I searched the help list and the manual, but I do not find my mistake.
Switch is working with character , with integer, but not in the third 
example

Regards Knut


count1 <- 0
test 
=c("3","9","3","9","3","9","8","9","8","9","8","9","3","9","3","9","5","9","3","9","1","2","7","9","3","9","1","1","2","2","3","9","2","1","2","5","9","8","9","1","2")
count1 <- "0"
for (i in 1:length(test))
  switch (EXPR=test[i],
      "5" =     print(test[i]),
      "6" =     print(test[i]),
      "7" =     print(test[i]),
      "8" =     print(test[i]),
      "9" =     print(test[i])
      )
  count1
#         example from helpfile
for(i in c(-1:3,9))  print(switch(i, 1,2,3,4))

# -------- not working
test 
=c(3,9,3,9,3,9,8,9,8,9,8,9,3,9,3,9,5,9,3,9,1,2,7,9,3,9,1,1,2,2,3,9,2,1,2,5,9,8,9,1,2)
count1 <- 0
for (i in 1:length(test))
  switch (EXPR=test[i],
      4 =     count1 <- count1 +1,
      5 =     count1 <- count1 +1,
      6 =     count1 <- count1 +1,
      7 =     count1 <- count1 +1,
      8 =     count1 <- count1 +1
      )
  count1