Initial R script