famfile <- system.file("extdata", "3gens.fam", package="skater", mustWork=TRUE)
famfile %>%
read_fam() %>%
fam2ped() %>%
dplyr::mutate(kinpairs=purrr::map(ped, ped2kinpair)) %>%
dplyr::select(fid, kinpairs) %>%
tidyr::unnest(cols=kinpairs)
Run the code above in your browser using DataLab