Create stratify.R