Adding baseline R script (all zeros)