Update trend.R