data(ped.mrode)
# Additive relationship matrix for diploids (Henderson 1976):
Amatrix(ped.mrode, ploidy = 2)
# Dominance relationship matrix for diploids (Cockerham 1954):
Amatrix(ped.mrode, ploidy = 2, dominance = TRUE)
# Additive relationship matrix for autotetraploids (Kerr 2012):
Amatrix(ped.mrode, ploidy = 4)
# Additive relationship matrix for autooctaploids (Kerr 2012):
Amatrix(ped.mrode, ploidy = 8)
# Additive relationship matrix for autotetraploids with double reduction
# (Kerr 2012):
Amatrix(ped.mrode, ploidy = 4, w = 0.1)
# Additive relationship matrix for autotetraploids with double reduction
# using Slater (2013):
Amatrix(ped.mrode, ploidy = 4, w = 0.1, slater = TRUE)
# Additive relationship matrix for autohexaploids with double reduction
# (Kerr 2012):
Amatrix(ped.mrode, ploidy = 6, w = 0.1)
Run the code above in your browser using DataLab