makekinship function

Create a sparse kinship matrix