# NOT RUN {
data(mscdata)
dat <- mksub(mscdata, id=1108447)
seas.temp.plot(dat)
seas.temp.plot(dat, width="mon", add.alt=TRUE)
# starting and ending elsewhere
seas.temp.plot(dat, start=18, rep=3)
# }
Run the code above in your browser using DataCamp Workspace