>From the help entry for switch: If the value of EXPR is an integer between 1 and nargs()-1 then the corresponding element of ... is evaluated and the result returned.
So, for integers you don't give names to the elements in ... This should work: 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], NULL, NULL, NULL, count1 <- count1 +1, count1 <- count1 +1, count1 <- count1 +1, count1 <- count1 +1, count1 <- count1 +1, NULL ) count1 On 11/12/06, Knut Krueger <[EMAIL PROTECTED]> wrote: > 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 > > ______________________________________________ > R-help@stat.math.ethz.ch mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > -- ================================= David Barron Said Business School University of Oxford Park End Street Oxford OX1 1HP ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.