kinship.emp {MoBPS}

Empirical kinship

Description

Function to compute empirical kinship for a set of individuals)

Usage

kinship.emp(
  animals = NULL,
  population = NULL,
  gen = NULL,
  database = NULL,
  cohorts = NULL,
  sym = FALSE
)

Arguments

animals

List of animals to compute kinship for

population

Population list

gen

Quick-insert for database (vector of all generations to export)

database

Groups of individuals to consider for the export

cohorts

Quick-insert for database (vector of names of cohorts to export)

sym

If True derive matrix entries below principle-diagonal

Value

Empirical kinship matrix (IBD-based since Founders)

Examples

data(ex_pop)
kinship <- kinship.emp(population=ex_pop, database=cbind(2,1,1,25))