path<-"http://canisius.edu/~yany/RData/"
dataSet<-"ibmBSannual"
link<-paste(path,dataSet,".RData",sep='')
load(url(link))
head(.ibmBSannual)







