Create edat.R