add.pedigree {synbreed}R Documentation

Merge pedigree object

Description

This function can be used to add some pedigree information to a existing pedigree object.

Usage

add.pedigree(ped, IDadd, add.ancestors = FALSE)

Arguments

ped

pedigree object

IDadd

pedigree object

add.ancestors

logical. Add ancestors which do not occur in ID to the pedigree.

Details

Missing values for parents in the pedigree should be coded with 0 for numeric ID or NA for character ID.

Value

An object of class pedigree. Column gener starts from 0 and pedigree is sorted by generation.

Author(s)

Hans-Juergen Auinger

See Also

plot.pedigree, create.pedigree

Examples

# example with 9 individuals
id <- paste("ID", 1:9, sep="0")
par1 <- paste("ID", c("","","","",1,1,1,4,7), sep="0")
par2 <- paste("ID", c("","","","",2,3,2,5,8), sep="0")
ped1 <- create.pedigree(id,par1,par2,unknown="ID0")

# create 2nd pedigree object
Id <- paste("ID", 10:16, sep="")
Par1 <- paste("ID", c("","",1,1,6,7,7), sep="0")
Par2 <- paste("ID", c("","",10,"08","09",11,14), sep="")
ped2 <- create.pedigree(Id,Par1,Par2,unknown=c("ID0", "ID"))
ped2

ped <- add.pedigree(ped1, ped2)
ped


[Package synbreed version 0.12-12 Index]