x<-read.csv("http://canisius.edu/~yany/data/ibmDaily.csv")

