initial makePerson.R script