## Not run:
# ## Retrieve Bessie station MTS files for 00:00 Jun 01, 1997
# ## through 23:55 Oct 31, 1997
# bess.mts <- okmts(begintime="1997-06-01 00:00:00",
# endtime="1997-10-31 23:55", station="bess")
#
# ## Average MTS data by day.
# bess.mts.avg <- avgokmts(bess.mts, by="day")
# ## End(Not run)
Run the code above in your browser using DataLab