Update spread.R