Analysis done in R