Create spread.R