Dear R users,

I am using the following function but it is not able to give me data for
following quotes:*"PTI","REDF","SIFY","SLT","TCL","TTM","WIT","WNS"*

*#Extracting data*
*various.symbols <-
c("RDY","HDB","IBN","INFY","MTE","PTI","REDF","SIFY","SLT","TCL","TTM","WIT","WNS")
*
*generate.mean.volume <- function(symbol,start.date){*
*  tmp <- getSymbols(symbol,src="google",auto.assign=FALSE,from=start.date)*
*  liquidity <- tmp[,grep("Volume",colnames(tmp))]*
*  res <- aggregate(liquidity,as.yearmon,mean)*
*  res*
*}*
*
*
*dat <- generate.mean.volume("RDY",start.date="2002-01-01")*
*
*
*for(i in 2:length(various.symbols)){*
*  cat("Working on:",various.symbols[i],"\n")*
*  dat <-
merge(dat,generate.mean.volume(various.symbols[i],start.date="2002-01-01"),all=TRUE)
*
*}*


It would be very helpful. If I could get some inputs on this.

Regards
Vikram

	[[alternative HTML version deleted]]

