This is the analysis for my internship in R code.