path<-"http://canisius.edu/~yany/RData/"
dataSet<-"ibmDaily.RData"
link<-paste(path,dataSet,sep='')
load(url(link))
head(.ibmDaily)
n<-nrow(.ibmDaily)
p<-.ibmDaily$ADJ.CLOSE
ret<-p[2:n]/p[1:(n-1)]-1
shapiro.test(ret) 
