Create parallel.R