R script init