I am trying to extract symbols and plot them in a loop, using a variable to assign each symbol, as follows:

> symbol.list <- c("LSCC","LSI","LSTR","LTBR","LTON","LTRE","LTRX","LTXC")
> for(i in 1:8){
>      symbol <- getSymbols(symbol.list[i])
>      ticker <- last(symbol,'12 months')
>      barChart(ticker)
>}

I am getting an error message "Error in NROW(x) - n : non-numeric argument to binary operator". I think I know where the problem is, but do not know how to extract the output of getSymbols() in a format than can be passed on to last(). Any help is appreciated.
	[[alternative HTML version deleted]]

