library(TTR)
tickers<- read.table("sp500 tickers 10-04.csv",sep="\t",header=T,quote="")
colnames(tickers) <- c("name","ticker")
#remove trailing whitespaces
tickers[,"ticker"] <- sub(' +$', '',tickers[,"ticker"])
#replace / by -
tickers[,"ticker"] <- sub('/', '-',tickers[,"ticker"])
for(ticker in tickers[,"ticker"]){
  assign(ticker,getYahooData(ticker,"20000101"))
}