fix a bug in the Control Structures in for loop

[pingzh]

x <- c("apples", "oranges", "bananas", "strawberries")
for (i in x) {
    print(x[i])
}

to

x <- c("apples", "oranges", "bananas", "strawberries")
for (i in x) {
    print(i)
}