Update subset.station.R

Fixed a bug that > str(y)
‘zoo’ series (without observations)