Update R/subset.station.R