Update R/subset.station.R
Update R/DS.R
Update R/plot.R