gen.findFounders {GENLIB}

Find common founder ancestors

Description

Returns all the ancestors that are founders for specified individuals in the genealogy.

Usage

gen.findFounders(gen, individuals, NbProcess=parallel::detectCores()-1)

Arguments

gen

An object of class GLgen obtained with gen.genealogy, gen.lineages or gen.branching. Required.

individuals

Vector of individual id numbers for which to find the founders. Required

NbProcess

Number of processes to use when running this function. Default=parallel::detectCores()-1

Value

A vector of integers

Note

Uses slave processes to make the search faster. Those slave processes launch the function gen.getFoundersMPI.

See Also

gen.genealogy gen.founder gen.findMRCA gen.findDistance gen.find.Min.Distance.MRCA

Examples

data(geneaJi) 
genJi<-gen.genealogy(geneaJi) 
gen.founder(genJi)
gen.findFounders(genJi, individuals=c(1,29), NbProcess = 1)

data(genea140) 
gen140<-gen.genealogy(genea140) 
gen2<-gen.branching(gen140,pro=c(409033,408728)) 
# 615 founders in genealogy of #409033 and #408728
all_founders<-gen.founder(gen2) 
length(all_founders)


all_commonFounders<-gen.findFounders(gen140, individuals=c(409033,408728), NbProcess = 1)
length(all_commonFounders) # 127 founders common to #409033 and #408728