Update subset.station.R