getMonthlyRet<-function(ticker){
   t1<-"http://canisius.edu/~yany/data/"
   t2<-paste(t1,tolower(ticker),'Monthly.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,"%Y-%m-%d")
   }
   #
   p<-x$Adj.Close
   ret<-p[2:n]/p[1:(n-1)]-1
   d<-data.frame(dd[2:n],ret)
   colnames(d)<-c('DATE',toupper(ticker))
   return(d)
}
