adding another R script