synbreed (version 0.12-9)

create.pedigree: Create pedigree object

Description

This function can be used to create a pedigree object.

Usage

create.pedigree(ID, Par1, Par2, gener=NULL,sex=NULL,add.ancestors=FALSE,unknown=0)

Arguments

ID

vector of unique IDs identifying individuals

Par1

vector of IDs identifying parent 1 (with animals: sire)

Par2

vector of IDs identifying parent 2 (with animals: dam)

gener

vector identifying the generation. If NULL gener will be 0 for unknown parents and max(gener(Par1),gener(Par2))+1 for generations 1,... .

sex

vector identifying the sex (female=0 and male=1).

add.ancestors

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

unknown

value for unknown or missing ancestors.

Value

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

Details

Missing values for parents in the pedigree should be coded NA. 0 is treaded as unknown, too.

See Also

plot.pedigree, add.pedigree

Examples

# NOT RUN {
# example with 9 individuals
id <- paste("ID", 1:9, sep="0")
par1 <- paste("ID", c(0,0,0,0,1,1,1,4,7), sep="")
par2 <- paste("ID", c("","","","",2,3,2,5,8), sep="")
gener <- c(0,0,0,0,1,1,1,2,3)

# create pedigree object (using argument gener)
ped <- create.pedigree(id,par1,par2,gener,unknown=c("ID0", "ID"))
ped
plot(ped)

# create pedigree object (without using argument gener)
ped2 <- create.pedigree(id,par1,par2,unknown=c("ID0", "ID"))
ped2
# }