googleDailyRet<-function(ticker){
today<-Sys.Date()

ticker<-"ibm"
t1<-"http://canisius.edu/~yany/data/"
t2<-paste(t1,tolower(ticker),".csv",sep='')
x<-read.csv(t2,header=T)


n<-nrow(x)
dd<-Sys.Date()
for(i in 1:n){
   tt<-toString(x[i,1])
   dd[i]<-as.Date(tt,"%d-%b-%y")
}



colnames(x)<-toupper(colnames(x))
p<-x$ADJ.CLOSE
ret<-p[2:n]/p[1:n-1]-1
d<-data.frame(dd[2:n],x$PRICE[2:n],ret)


colnames(d)<-c('Date','Price','Ret')
return(d)
}
