data(d.river)
dd <- d.river[seq(1,1000,4),]
dd$date <- gendateaxis("date",hour="hour", data=dd)
attr(dd$date, "ticksat")
dsubs <- plsubset(dd, subset=1:50)
attr(dsubs$date, "ticksat")
plyx(O2~date, data=dsubs)
## same as
## plyx(O2~date, data=dd, subset=1:50)
Run the code above in your browser using DataLab