Update trend.R

fixed a bug for multi-station data sets: trendx <- data.frame(t=1:length(index(x)),y=x)