CalcRped function

Calculate Pedigree Relatedness