mydata <- read.table("./People.csv", header = TRUE, sep=";", dec = ",")