Created Data-analysis.R script