Create doParallel.R