##Get list with a dataframe for each error type
ped_file <- system.file("check_ped_test.txt", package="BIGr")
ped_errors <- check_ped(ped.file = ped_file,
seed = 101919)
##Access the "messy parents" dataframe result
ped_errors$messy_parents
##Get list of sample IDs with messy parents error
messy_parent_ids <- ped_errors$messy_parents$id
print(messy_parent_ids)
Run the code above in your browser using DataLab