
 load("c:/temp/retDIBM.RData")
 ls()
 date1<- as.Date("2011-02-02")
 date2<-as.Date("2011-02-11")
 head(IBM,2)
 tail(IBM,2)
 x<-subset(IBM,IBM$Date>=date1 & IBM$Date<=date2)
 head(x)

