> sz=read.csv("d:/data/table.csv")
> sz.xts=as.xts(zoo(sz[,2:6],order.by = as.Date(sz$Date)))
> chart_Series(sz.xts)
> chart_Series(sz.xts)
> chart_Series(to.daily(sz.xts))
> chart_Series(to.monthly(sz.xts))
> chart_Series(to.weekly(sz.xts))