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