Set seed in analysis.R