Filters a kinship matrix to include only the egos listed in 'ids'

Filters a kinship matrix to include only the egos listed in 'ids'

Usage

filterKinMatrix(ids, kmat)

Arguments

ids

character vector containing the IDs of interest. The kinship matrix should be reduced to only include these rows and columns.

kmat

a numeric matrix of pairwise kinship coefficients. Rows and columns should be named with IDs.

Value

A numeric matrix that is the reduced kinship matrix with named rows and columns (row and col names are 'ids').

Examples

library(nprcgenekeepr)
ped <- nprcgenekeepr::qcPed
ped$gen <- findGeneration(ped$id, ped$sire, ped$dam)
kmat <- kinship(ped$id, ped$sire, ped$dam, ped$gen,
                sparse = FALSE)
ids <- ped$id[c(189, 192, 194, 195)]
ncol(kmat)
#> [1] 280
nrow(kmat)
#> [1] 280
kmatFiltered <- filterKinMatrix(ids, kmat)
ncol(kmatFiltered)
#> [1] 4
nrow(kmatFiltered)
#> [1] 4