ped2paternal function

Add a paternal line ID variable to a pedigree