working R script for increasing number of processes