Loading the prepared data
Data <- read.csv("Year0.csv", header = TRUE)