“get.multiple.quotes <- function(tkrs,                                 from=(Sys.Date()-365),                                 to=(Sys.Date()),                                 interval="d") {     tmp <- NULL;     for (tkr in tkrs) {         if (is.null(tmp))              tmp <- get.quotes(tkr,from,to,interval)         else tmp <- rbind(tmp,get.quotes(tkr,from,to,interval))         }     tmp }”